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Abstract 


An  analytical  method  is  developed  and  applied  to  find 
the  activities  of  two  radioisotopes  based  on  measurements 
influenced  by  true  coincidence  summing.  The  method 
incorporates  the  solid  angle  subtended  by  the  detector,  the 
macroscopic  cross  sections  of  the  materials  present,  the 
absolute  peak  and  total  efficiencies  of  the  detector,  and 
the  modes  and  probabilities  of  decay  of  the  radioisotope. 
With  this  information,  the  method  corrects  for  both  summing- 
in  and  summing-out  events.  Summing  events  affect  peak 
counts  and  cause  the  calculated  activity  to  differ  from  the 
true  activity. 

Thin  disk  sources  of  Mo-99  and  Cs-136  on  the  face  of  a 
closed-end,  coaxial  high  purity  germanium  detector  have  been 
studied.  For  Mo-99,  the  analytical  method  shows  there  is  a 
29%  reduction  in  the  740  keV  peak  counts  due  to  summing 
events.  This  factor  adjusts  the  no-coincidence-assumed 
activity  to  within  4.0%  of  the  correct  value.  As  for  Cs- 
136,  the  analytical  method  shows  a  41%  reduction  in  the  1048 
keV  peak  counts.  This  factor  corrects  the  simplistic 
activity  to  within  0.5%  of  the  correct  value.  Hence,  the 
results  indicate  that  coincidence  summing  is  the  primary 
cause  of  activity  discrepancies  for  the  given  configuration. 


IX 


AN  ANALYTICAL  METHOD  TO  CALCULATE  ACTIVITY 
FROM  MEASUREMENTS  AFFECTED  BY  COINCIDENCE 

SUMMING 


1 .  Introduction 

1 . 1  Customer  Background 

The  Air  Force  Technical  Applications  Center  (AFTAC) 
operates  the  Applied  Chemistry  Laboratory  at  McClellan  AFB, 
CA.  The  mission  of  the  laboratory  is  to  determine  the 
quantity  of  certain  radioisotopes  in  samples  and  report  the 
results  in  a  timely  manner.  Its  customers  use  the 
information  to  verify  compliance  with  nuclear  test  ban 
treaties  which,  in  turn,  can  have  a  direct  impact  on  national 
policies  and  actions. 

In  performing  the  mission,  laboratory  personnel  analyze 
samples  for  fission  and  neutron  activation  products. 
Laboratory  technicians  isolate  the  radioisotopes  by  element 
through  chemical  extraction,  collect  the  precipitate  on 
filter  paper,  and  then  mount  the  paper  onto  a  planchet  shown 
in  Figure  1.1.  Depending  on  the  activity  of  the  source  on 
the  filter  paper,  a  technician  places  the  planchet  at  a  fixed 
distance  above  the  detector  for  measurement.  Because  many  of 
the  sources  have  very  low  activities,  they  lie  on 
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Figure  1.1  Planchet  Schematic 
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Figure  1.2  Detector  #120  Schematic  (Canberra,  1995) 
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the  end  cap  (face)  of  the  detector.  The  typical  detector  has 
a  closed-end,  coaxial  high  purity  germanium  ( HPGe )  crystal 
enclosed  by  an  aluminum  end  cap  shown  in  Figure  1.2. 

Laying  the  low  activity  (weak)  source  on  the  face  of  a 
detector  maximizes  the  rate  of  registering  radiation  quanta 
(count  rate)  and  minimizes  measurement  time.  The  measurement 
time  depends  on  the  total  counts  recorded  which  must  be  over 
the  threshold  of  10,000  counts.  The  laboratory  uses  this 
threshold  to  minimize  the  errors  of  the  counts  due  to  the 
statistical  variation  of  radioactive  decay.  The  detector  may 
operate  for  as  long  as  1000  minutes  in  order  to  get  a  valid 
measurement . 

After  obtaining  a  reliable  measurement,  laboratory 
members  determine  the  activity  of  the  radioisotopes  present 
in  the  sample.  Then,  they  send  the  findings  to  Headquarters 
AFTAC  for  dissemination  to  the  customers. 

1 . 2  Problem  Background 

Before  measuring  the  activity  of  a  source  from  a 
collected  sample,  laboratory  personnel  calibrate  the  response 
of  each  detector  to  gamma-rays  of  known  energies .  These 
gamma-rays  come  from  a  source  containing  standard 
radioisotopes  that  predominantly  emit  one  or  two  gamma-rays 
per  decay.  The  standard  source  is  usually  10  cm  or  more 
above  the  face  of  the  detector.  (The  importance  of  this  fact 
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will  be  made  later.)  A  technician  assigns  the  energies  of 
the  known  gamma-rays  to  the  corresponding  peaks  of  counts 
recorded  in  the  spectrum.  With  this  data,  the  software  for 
the  detector  system  creates  an  efficiency  function  to 
calibrate  the  energy  spectrum  for  future  measurements. 

As  each  radioisotope  has  a  unique  set  of  radiation 
quanta  (gamma-rays  in  this  context)  with  associated  energy 
and  rate  of  emission,  laboratory  members  can  determine  the 
radioisotopes  present  and  their  quantity  at  time  of  formation 
(time  zero) .  To  find  these  values,  laboratory  technicians 
calculate  the  activity  of  each  radioisotope  based  on  the 
detector  measurements.  With  the  number  of  counts  under  a 
characteristic  energy  peak  per  minute,  CPM  ,  the  branching 
ratio  of  the  gamma-ray  that  caused  the  peak,  %  ,  the  decay 

constant  of  the  radioisotope,  X  ,  the  efficiency  of  the 
detector  to  record  the  full  energy  of  the  gamma-ray  (peak 

efficiency)  ,  e^ea^ ,  the  time  of  chemical  extraction  and  the 
midpoint  time  of  the  measurement,  the  percent  of  mass  yielded 
from  chemical  extraction,  y,  and  the  dilution  of  the  sample 
before  precipitating  the  solid  (fraction  of  total  volume) , 

FTV ,  a  technician  inputs  this  data  into  a  computer  program 
(GAMANAL)  and  gets  the  activity  of  the  radioisotope  at  time 
zero,  Cq .  Equation  1-1  shows  the  relation  of  the  above 
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factors  in  calculating  the  activity  at  time  zero  (AFTAC, 


1997)  : 


CPM  @  mid_  measurement-  time 
FTVyxePea^Exp[-A,(separation_  to_  mid_  meas.  _  time)] 


(1-1) 


When  they  used  the  above  equation  to  find  the  initial 
activities  of  the  radioisotopes,  laboratory  personnel 
obtained  reproducible  results  for  sources  that  were  10  cm  or 
more  above  the  face  of  the  detector.  However,  they  observed 
that  certain  radioisotopes  produced  significantly  different 
initial  activities  when  the  sources  were  on  the  face.  They 
assumed  that  true  coincidence  summing  was  occurring.  To 
correct  the  discrepancy  between  the  initial  activities, 
laboratory  engineers  decided  to  take  measurements  of 
sufficiently  strong  sources  at  10  cm  or  more  (where  summing 
errors  were  assumed  to  be  negligible)  and  then  measurements 
of  the  sources  on  the  face.  Engineers  adjusted  the  peak 
efficiencies  for  the  face  measurements  to  make  the  face 
initial  activities  match  the  upper-geometry  initial 
activities.  Consequently,  the  engineers  made  a  lengthy  table 
of  adjusted  peak  efficiencies  for  each  gamma-ray  of  each 
radioisotope  for  each  detector. 


1 . 3  Problem  and  Scope 

Is  the  assumption  of  true  coincidence  summing  causing 
the  discrepancies  in  the  initial  activities  correct?  Is  the 
effect  of  angular  correlation  between  cascading  gamma-rays 
augmenting  the  discrepancies?  These  are  the  questions  AFTAC 
personnel  want  answered. 

With  these  questions,  a  few  more  arise  and  must  be 
answered:  If  true  coincidence  summing  is  the  cause  of  the 

discrepancies,  is  there  a  method  to  accurately  calculate  the 
initial  activity?  Are  there  other  methods  to  confirm  the 
results?  In  addition,  is  the  effect  of  angular  correlation 
negligible  for  the  face  measurements?  If  not,  is  there  a 
method  to  correct  for  it?  In  finding  answers  to  all  the 
questions,  we  will  make  some  approximations  to  simplify  the 
problem  and,  of  course,  look  at  the  impact  of  those 
approximations . 

First,  with  respect  to  the  physical  aspects  of  the 
problem,  we  will  investigate  only  two  radioisotopes  of  the 
many  that  AFTAC  analyzes.  They  are  molybdenum-99  (Mo-99)  and 
cesium-136  (Cs-136) .  Their  decay  schemes  are  similar  in 
complexity  to  those  of  the  other  radioisotopes  with  anomalous 
initial  activities.  Next,  we  will  model  the  Mo-99  and  Cs-136 
sources  as  ideal  thin  disks.  Lastly,  the  detector  we  will 
model  for  this  effort  is  Canberra  GC4019,  Serial  Number 


6 


12953567,  (also  known  as  AFTAC  Detector  #120)  which  has  a 
closed-end,  coaxial  HPGe  crystal  shown  in  Figure  1.1. 

Second,  with  respect  to  the  method  to  calculate  initial 
activity,  we  will  develop  an  analytical  method  that  can  model 
a  point  or  thin  disk  source  over  a  detector  with  a 
cylindrical  HPGe  crystal.  The  gamma-ray  backscattering  from 
the  mounting  material  of  the  planchet  will  be  ignored  in  the 
development  of  the  analytical  method.  However,  the  magnitude 
of  this  approximation  will  be  addressed  in  Chapter  4.  Next, 
we  will  assume  that  the  diameter  of  the  disk  source  is  less 
than  the  diameter  of  the  detector  face  and  that  the  source  is 
centered  on  the  major  axis  of  the  detector.  With  this  being 
true  for  AFTAC' s  application,  these  assumptions  will  simplify 
the  equations  to  calculate  the  path  length  of  gamma-rays  from 
the  source  to  the  detector.  Lastly,  we  will  develop  an 
analytical  method  that  can  model  a  gamma-ray  emitting 
radioisotope  including  those  with  isomeric  states  and 
positron  emission. 

Third,  with  respect  to  an  alternative  method  to 
accurately  calculate  the  initial  activity,  we  will  use  the 
Canberra,  Inc.  coincidence  correction  software  to  produce 
values  for  an  Mo-99  source  and  compare  them  with  the  values 
generated  by  the  analytical  method  developed  here.  The 
software  from  Canberra,  Inc.  is  still  under  development  and 
is  proprietary.  Because  the  source  code  has  not  been 
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released,  an  analysis  of  any  differences  can  not  be  provided. 
The  reason  for  using  this  software  package  is  its 
compatibility  with  existing  Canberra  detector  systems  at 
AFTAC  and  AFIT. 

Last,  with  respect  to  angular  correlation  between 
cascading  gamma-rays,  Andreev  in  his  1972  paper  claims  that 
its  effect  may  be  ignored  when  determining  the  true  activity 
of  a  source  for  near  geometries.  We  will  investigate  this 
claim.  If  true,  we  will  not  include  angular  correlation  in 
the  development  of  the  analytical  method.  Unfortunately,  we 
will  not  investigate  those  cases  where  the  source  is  at  some 
intermediate  distance  above  the  detector  in  which  angular 
correlation  and  true  coincidence  summing  may  produce  a 
maximum  discrepancy  effect.  The  laboratory  has  manufactured 
source  stands  for  each  detector  with  fixed  positions  at  0,  5, 
10,  and  15  cm  above  the  face.  Laboratory  personnel  did  not 
observe  any  significant  discrepancies  in  initial  activities 
for  Mo-99  sources  down  to  the  5  cm  position.  Because  of  the 
laboratory's  set  measurement  configuration,  we  will  not 
investigate  where  correlation  and  slimming  effects  create  a 
maximum . 

} 

1.4  Outline 

To  start  the  investigation.  Chapter  2  reviews  the 
relevant  fundamentals  of  cascading  radiation,  true 
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coincidence  summing,  and  angular  correlation.  Next,  Chapter 
3  presents  an  analytical  method  to  correct  for  summing  events 
and  its  results  for  Mo-99  and  Cs-136.  Then,  Chapter  4 
compares  the  analytical  results  with  those  of  the  Canberra, 
Inc.  program.  Lastly,  Chapter  5  provides  some  conclusions. 

1 . 5  Benefits  of  Research 

With  the  results  from  the  analytical  and  Canberra,  Inc. 
methods,  we  will  be  able  to  answer  AFTAC's  questions  and  show 
if  gamma-ray  cascades  cause  the  anomalous  activities  for  the 
face  geometry.  In  addition,  as  the  laboratory  transitions 
from  planchets  to  vials  containing  the  radioisotopes  in 
solution,  this  thesis  can  serve  as  the  starting  point  for  a 
follow-on  investigation  into  the  added  complications  of  self¬ 
attenuation  and  scattering  that  a  voluminous  source  presents . 
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2 .  Nuclear  Decay  Phenomena 

To  understand  why  a  detector  has  a  problem  in  accurately 
recording  gamma-rays,  we  need  to  review  what  the  nucleus  is 
doing  as  it  decays  and  emits  radiation.  In  particular,  we 
will  look  at  the  decay  data  on  Mo-99  and  Cs-136.  Then,  we 
will  review  concepts  of  angular  correlation  and  the  magnitude 
of  its  effect  for  Mo-99  and  Cs-136. 

2 . 1  Gamma-Ray  Cascades 

The  origin  of  the  observed  discrepancy  in  the  activity 
of  a  radioisotope  is  its  inherent  decay  mechanisms .  A 
nucleus  that  rapidly  emits  gamma-rays  in  series  causes 
counting  errors  due  to  the  finite  resolution  time  of  a 
detector  in  discerning  one  emission  from  the  next. 

Gamma-rays  are  photons  ejected  from  the  nucleus  as  it 
de-excites  to  a  state  of  lower  energy.  Depending  on  the 
radioisotope,  a  nucleus  may  de-excite  through  a  number  of 
intermediate  energy  levels  emitting  gamma-rays  with 
corresponding  energy.  A  serial  emission  of  radiation  is 
called  a  cascade.  If  an  intermediate  energy  level  is  not 
meta-stable,  i.e.,  not  relatively  long-lasting,  the  nucleus 

may  exist  for  typically  10-20  to  10”10  seconds  before  de¬ 
exciting  to  the  next  level  (Peker,  1994) .  The  typical  high- 
purity  germanium  (HPGe)  detector  needs  time  on  the  order  of 

10-7  seconds  (Knoll,  1989)  to  collect  the  energy  deposited  by 
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a  gamma-ray.  Then  there  is  a  system  dead  time  of  about 

5XKT6  seconds  (Canberra,  1992)  for  the  counting  system  to 
process  the  resulting  charge  pulse  and  re-establish  itself  to 
receive  the  next  one. 

In  addition  to  the  problem  of  a  finite  response  time, 
cascading  gamma-rays  may  deposit  some  or  all  of  their  energy 
in  the  detector  and  cause  a  count  related  to  the  summed 
energies.  If  the  sum  of  the  energy  deposited  approximates 
the  energy  of  an  emitted  gamma-ray,  the  event  causes  a 
summing-in  count  for  that  gamma.  Even  if  the  summed  energies 
do  not  tally  a  count  for  an  existing  gamma-ray,  the  event 
still  causes  a  summing-out  situation  that  suppresses  counts 
for  the  constituent  gamma-ray  peaks . 

To  illustrate  these  summing-in  and  -out  events,  first, 
we  observe  the  energy  levels  of  and  gamma-rays  emitted  from 
Mo-99  and  Cs-136  shown  in  Figures  2.1  and  2.2.  The  decay 
schemes  show  the  most  prominent  energy  levels  and  radiation 
quanta.  (Note  the  6  hour  meta-stable  state  of  Mo-99 
essentially  breaks  the  777  keV  and  411-366  keV  cascades.) 

For  an  example  of  a  summing-in  event,  if  both  the  411  and  366 
keV  gamma-rays  from  Mo-99  deposit  their  full  energy  in  a 
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Figure  2.1  Simplified  Mo-99  Decay  Scheme  (Peker,  1994) 
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Figure  2.2  Simplified  Cs-136  Decay  Scheme  (Tuli,  1987) 
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detector  within  its  charge  collection  time,  the  sum.  111  keV, 
will  register  a  count  for  the  111  keV  gamma-ray.  For  an 
example  of  a  summing-out  event,  if  the  411  keV  gamma-ray 
deposits  its  full  energy  and  the  366  keV  gamma-ray  deposits 
some  portion  of  its  energy,  the  sum  will  register  a  count  in 
the  energy  spectrum  above,  i.e.,  out  of,  the  411  keV  peak. 

As  a  further  contribution  to  the  activity  discrepancy, 
the  solid  angle  subtended  at  the  face  of  the  detector  allows 
more  summing-in  and  -out  events  to  occur.  This  comes  from 
the  cascading  gamma-rays  having  a  greater  probability  to 
interact  and  deposit  their  energy  in  the  detector  crystal. 

For  radioisotopes  with  significant  gamma-ray  cascading, 
summing  events  may  cause  substantial  deviation  which  we  will 
investigate  in  the  next  chapter. 

2.2  Angular  Correlation  of  Radiation 

In  most  applications,  we  assume  a  de-exciting  nucleus 
emits  gamma-rays  isotropically.  However,  when  the  nucleus 
emits  a  cascade  of  gamma - rays ,  a  correlation  among  the 
directions  of  the  gamma-rays  appears .  What  causes  this 
correlation,  and  how  much  can  it  enhance  true  coincidence 
summing? 

First,  the  angular  momentum  (spin  state)  of  the  nucleus 
is  the  primary  influence  on  this  correlation  of  directions. 
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A  nucleus  has  a  particular  spin  state  for  each  of  its  energy 
levels.  When  a  nucleus  emits  a  gamma-ray  and  loses  energy, 
its  spin  state  changes .  The  direction  of  the  gamma-ray  is 
related  to  the  initial  spin  state  (Evans,  1967) .  When  there 
is  a  cascade,  the  quantum  mechanical  behavior  of  the  nucleus 
as  it  de-excites  imparts  a  correlation  on  the  directions  of 
the  gamma-rays.  In  his  1965  book,  Ferguson  uses  wave 
equations  to  show  how  the  correlation  arises  and  how  to 
determine  its  magnitude.  Because  the  presentation  of  the 
details  is  very  lengthy,  please  refer  to  his  book  for  further 
inquiry. 

Second,  the  magnetic  and  electric  quadrupole  moments  of 
the  nucleus  may  perturb  the  correlation  if  the  nucleus  exists 

at  one  energy  level  for  more  than  1CT11  seconds  (Friedlander 
and  others,  1981).  A  case  in  point  is  Mo-99.  See  Figure  2.1 
for  its  energy  level  lifetimes.  Unfortunately,  in  their 
presentations,  Friedlander  (1981)  and  Ferguson  (1965)  do  not 
explain  and  show  how  the  quadrupole  moments  affect  the 
correlation.  Only  Gardulski  and  Wiedenbeck  (1974)  in  their 
paper  provide  some  experimental  results  on  the  magnitude  of 
this  effect  for  Mo-99.  We  will  look  at  the  data  later. 

In  a  related  matter,  even  though  there  is  correlation 
between  beta  particles  and  a  cascade  of  gamma-rays,  we  will 
only  consider  the  gamma-gamma  correlation  when  we  analyze  Mo- 
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99  and  Cs-136.  The  energies  of  the  beta  particles  from  these 
isotopes  are  not  high  enough  to  let  the  beta  particles 
penetrate  the  mounting  structure  (aluminum  end  cap)  of  a 
detector  to  make  a  substantial  difference  in  the  counts. 
Appendix  A  shows  the  ranges  of  the  highest  energy  Mo- 99  and 
Cs-136  beta  particles  in  aluminum  and  the  weak  bremsstrahlung 
radiation  created. 

With  the  cause  identified,  we  will  now  define  angular 
correlation  in  terms  of  probability.  To  begin,  we  need  to 
define  the  angles  that  describe  the  directions  of  the  gamma- 
rays.  We  assume  a  source  emits  a  gamma-ray,  y  ,  in  the 

^  cl 

direction  of  Q  with  polar  angle  a  and  azimuthal  angle  CO 
&  a.  a. 

as  shown  in  Figure  2.3.  Then,  we  assume  the  source  emits  a 

second  gamma-ray,  y^  ,  in  the  direction  of  £2^  with  polar 

angle  and  azimuthal  angle  00^  •  Let  the  azimuthal  angle 

between  the  paths  of  the  two  gamma-rays  be  A<o  .  Also,  let 
the  angle  between  the  paths  of  the  two  gamma-rays  in  the 
plane  defined  by  those  paths  be  0  . 
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Hence,  let  the  angular  correlation,  W(Qa>Q^) ,  be  the 
probability  per  steradian  squared  that  the  nucleus  emits  y 

Si 

and  Yb  in  directions  and  ,  respectively. 

As  a  consequence,  when  we  include  the  detector  in  the 
situation,  we  introduce  another  probability— that  of 
registering  y  ^  and  y^  .  So,  let  e(^a)  be  the  probability  of 

detecting  y  given  the  nucleus  emits  y  in  the  direction  of 

Qa .  Likewise,  let  £(£2^)  be  the  probability  of  detecting  y^ 

given  the  nucleus  emits  y^  in  the  direction  of  .  Then 

the  probability  of  detecting  both  y^  and  y^  given  the  same 

nucleus  emits  them  is  ,  W,  the  integral  of  the  probability 
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of  detecting  y  over  all  directions  multiplied  by  the 

3 

probability  of  detecting  yb  over  all  directions  multiplied 
by  the  angular  correlation  between  y&  and  y^  as  shown  in 
Equation  2-1: 


W  =  JJe(Qa)e(Qb)W(Qa,Qb) 


da  da, 

_ a _ b 

4k  4k 


(2-1) 


Next,  to  find  how  much  of  an  effect  angular  correlation 

has  on  the  probability  of  detecting  y  and  y,  ,  we  will 

3  D 

normalize  Equation  2-1  with  respect  to  the  probability  of 
detecting  y&  and  yb  assuming  the  nucleus  emits  them 

isotropically  which  Equation  2-2  expresses.  If  there  is  no 
angular  correlation  between  y  and  yK  ,  then  the  normalized 

3  D 

angular  correlation,  W,  will  equal  one: 


_  JJe(Q  )e(Ob)W(Q  ,Ob) 


w  = 


da  da, 

_ a _ b 

a^W  4k  4k 


fjecawo .) 


da  da, 

_ a _ b 

4k  4k 


(2-2) 


Now,  we  take  a  closer  look  at  W(aa>ab)  .  Due  to  the 
spherical  harmonics  of  Legendre  polynomials,  we  express  the 


17 


function  W  in  terms  of  an  infinite  series  of  these 
polynomials,  P^  ,  which  operate  on  the  cosine  of  the  angle 

between  y  and  y,,  that  is,  0,  with  their  coefficients,  A,  , 
*  a  b  k 

as  weights  which  Equation  2-3  shows: 

oo 

W(0)  =  1+  I  A,  P,  (cos0).  (2-3) 

k  =  2,4,6,...  KK 

The  magnitude  of  A^  comes  from  the  relations  of  the 

wave  equations  of  the  nucleus  as  it  de-excites  from  one 
energy  level  with  its  electric  and  magnetic  moments  to  the 
next  (Ferguson,  1965) . 

As  a  reminder,  Equation  2-4  shows  the  relation  between 
0  and  the  components  of  Q  for  y&  and  y^  ,  i.e.,  a  and  © 

shown  in  Figure  2.3: 

cos0  =  cosa  cosoc.+sina  sina,  cosAcd.  (2-4) 

a  b  a  b 

Employing  a  widely  accept  approximation,  we  reduce  the 
infinite  series  of  Equation  2-3  to  the  first  two  terms 
because  experimental  data  has  shown  that  the  higher  order 
terms  are  negligible.  Thus,  Equation  2-5  approximates  the 
function  W : 
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(2-5) 


W(0)  =  l  +  A2P2(cose)  +  A4P4(cosG). 

Next,  as  a  brief  review.  Equations  2-6  and  2-7  show  the 
second  and  fourth  order  Legendre  polynomials  used  in  Equation 
2-5: 


P2(cos0)  =  ^(3cos20-1) 
P4(cos0)  =  ^(35cos^  0  -  30cos2  0  +  3). 


(2-6) 

(2-7) 


In  executing  Equation  2-2  to  find  W ,  Camp  and  Van  Lehn 
(1969)  present  in  their  paper  a  set  of  equations  that 

computes  W  in  a  more  efficient  manner.  (Appendix  B  shows 
some  of  the  key  steps  in  transforming  Equation  2-2  to  Camp 
and  Van  Lehn's  equations.)  They  incorporate  the  A 2  and  A4 

coefficients  as  well  as  the  integration  and  normalization 

into  the  A®XP  and  A4XP  terms  shown  in  Equation  2-8.  In 

particular,  they  incorporate  the  integration  and 
normalization  into  the  term  shown  in  Equation  2-9: 


In  the  next  step,  they  separate  the  variables  for  y 

3. 

and  y,  ,  i.e.,  the  angles  that  define  the  directions  of  the 
b 

gamma-rays,  into  the  J  functions  as  Equation  2-10  shows: 


WW 
WW ' 


(2-10) 


The  j  function  is  an  integral  of  the  probability  of  a 
gamma-ray  interacting  with  the  detector  and  of  the  Legendre 
polynomial  of  order  k  operating  on  the  cosine  of  the  angle 
between  y  and  y,  ,  9  .  First,  the  probability  of 

3.  D 

interaction  is  a  function  of  the  energy  of  the  gamma- ray, 

,  and  the  macroscopic  cross  section  of  the  target 

material,  ,  in  this  case  germanium.  However,  in  the 

detector  of  Figure  1.2,  there  are  the  aluminum  end  cap  and 

lithium  contact  which  may  attenuate  the  gamma - ray s .  So,  we 

will  incorporate  their  macroscopic  cross  sections  as  well, 

£  . ,  and  £T  .  . 

A1  Li 

In  addition,  the  probability  of  interaction  is  a 
function  of  the  path  length  of  the  gamma-ray  through  the 


detector.  Let  x^j(°0  be  the  path  length  of  a  gamma-ray 

through  the  end  cap  at  the  polar  angle,  a,  from  the  source 
to  the  detector.  Let  xjj(a)  be  the  path  length  of  a  gamma- 

ray  through  the  lithium  contact  for  the  same  angle  a. 

Lastly,  let  xQe(°0  be  the  path  length  of  the  gamma-ray 

through  the  detector  crystal  at  angle,  a  .  As  we  explain  in 
the  next  section,  if  the  detector  is  divided  into  zones  for 
ease  to  mathematically  describe  the  path  length  of  a  gamma- 
ray,  then  we  introduce  upper  and  lower  limits  of  the  zones 
for  integration.  Let  A (a)  be  the  lower  limit  angle  defining 
a  zone  while  B(a)  be  the  upper  limit  angle. 

Finally,  incorporating  all  the  cross  sections,  path  lengths, 
and  Legendre  polynomials,  Equation  2-11  shows  that  the  j 
function  is  an  integral  of  the  probability  of  the  gamma-rays 
interacting  with  the  detector  with  attenuation  by  the  end  cap 
and  lithium  contact  and  weighted  by  a  modified  correlation 
factor,  P^(cos0)  : 


Nzones  r  -i 

Jk(V=  JAffi|Pk<c<>seH1-E’<P[-5:G=(E^XGe<a>ilJ 


X 


pxp[-ZA1(Ey)xA1(a).  -EL.(EY)xLi(a)i]Jsin(a).d(a)i.  (2-11) 
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There  are  some  assumptions  in  using  Equation  2-11.  One 
is  the  aluminum  end  cap  and  lithium  contact  that  cover  the 
detector  crystal  attenuate  the  gamma-rays  via  any 
interaction.  This  means  the  interacted  gamma-rays  can. not 
deposit  their  full,  initial  energy.  Also,  no  scattered 
radiation  returns  to  the  crystal  which  would  add  to  the  total 
detection  efficiency.  The  impact  of  this  assumption  will  be 
reviewed  in  Chapter  4. 

2.3  Effect  of  Angular  Correlation 

With  Equations  2-8  through  2-11,  we  now  have  a  way  to 
approximate  angular  correlation.  The  terms  that  remain  for 
us  to  determine  are  the  macroscopic  absorption  cross  sections 
and  the  path  lengths  of  the  gamma-rays  going  through  the 
detector.  First,  the  macroscopic  cross  sections  are 
dependent  on  the  atom  density  of  the  material  and  the  energy 
of  the  incident  gamma-ray.  The  densities  of  aluminum, 
lithium,  and  germanium  with  their  natural  abundance  of 
constituent  isotopes  are  widely  published.  The  most  recent 
values  for  the  energy  dependent  microscopic  absorption  cross 
sections  (Compton  scattering,  photoelectric,  and  pair 
production)  are  listed  in  the  Brookhaven  National  Laboratory 
website  (Brookhaven,  1997).  Pages  90  through  93  in  Appendix 
C  have  the  densities  and  cross  sections  listed.  (Appendix  C 
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is  the  source  code  for  the  Mathematica  program  to  perform  the 
calculations  needed.) 

Second,  to  find  the  path  lengths  of  the  gamma-rays,  we 
need  the  dimensions  of  the  configuration  of  the  source  and 
detector.  We  already  have  the  dimensions  of  Detector  #120 
shown  in  Figure  1.2,  and  AFTAC  has  provided  the  area  of  the 
source  whose  radius  is  0.9974  cm  on  the  filter  paper.  The 
disk  source  is  centered  on  the  major  axis  of  and  parallel  to 
the  detector. 

The  task  is  to  represent  the  path  lengths  of  the  gamma- 
rays  from  any  point  on  the  source  through  any  portion  of  the 
detector  in  mathematical  equations.  Then,  using  Equations  2- 
8  through  2-11,  we  will  find  the  angular  correlation. 

However,  when  we  look  at  the  trigonometry  and  integration  to 
find  the  J  functions,  we  see  that  the  disk  source  and 
closed-end,  coaxial  detector  will  lead  to  a  long  set  of 
complicated  piece-wise  functions  and  integrals.  This  is  due 
to  the  loss  of  symmetry  when  the  source  point  is  off  of  the 
major  axis. 

To  avoid  this  difficulty,  there  are  two  main  techniques 
to  approximate  the  integration.  We  may  use  a  Monte  Carlo 
program,  tally  the  results  of  many  gamma-ray  histories,  and 
determine  a  value  for  the  J  functions.  On  the  other  hand, 
we  may  use  the  J  function  values  of  other,  simpler 


23 


configurations  and  proportion  them  to  find  an  approximate 
value  for  the  actual  configuration.  One  difficulty  with  the 
Monte  Carlo  technique  is  inserting  a  correlation  into  gamma- 
ray  histories.  Another  difficulty  is  modeling  the  varying 
electric  field  in  the  detector  crystal  which  determines  the 
charge  collection  and  peak  efficiency  (McCallum  and  Coote, 
1975)  . 

Due  to  these  difficulties  with  the  Monte  Carlo 
technique,  we  will  proportion  the  results  from  the 
configurations  of  (1)  a  point  source  centered  over  a  solid 
cylindrical  detector.  Figure  2.4,  (2)  a  disk  source  centered 

over  a  solid  cylindrical  detector.  Figure  2.5,  and  (3)  a 
point  source  centered  over  a  bored  cylindrical  detector. 
Figure  2.6.  Heath  (1964)  and  Camp  and  Van  Lehn  (1969)  have 
published  formulas  similar  to  Equations  2-12  through  2-14  for 
the  total  efficiency  of  a  detector.  When  we  include  the 
Pk(cos0)  term  into  their  formulas,  we  obtain  the  necessary  J 
functions . 

The  first  configuration,  Figure  2.4,  is  for  the  point 
source  (ps)  with  the  three  sided  (3s)  cylindrical  detector 
(two  circular  faces  plus  one  side) .  The  detector  is  divided 
into  two  zones  to  compute  the  necessary  J  function,  Jjj-psSs : 

The  first  one  is  for  the  truncated  inner  cone.  The  second  is 
for  the  convoluted  outer  wedge.  In  Equations  2-12  through  2- 
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Zone  2 


Zone  1 


Aldepth  gap 

Figure  2.4  Point  Source-Solid  Crystal  (Heath,  1964) 

14,  the  cosine  of  the  polar  angle  is  used  to  reduce  the 
computation  time  with  the  Mathematica  program: 


1  2  Bps3s(i) 

Jkps3s(Ey)  =  -£  Jpk(^){l-Exp[-SGe(EY)xps3si(^)]} 
i=lAps3s(i) 

x  {Exp[-ZA1(EY)xAl(S)  -  SLi(EY)xLi(^)]}d^  where 

P0(4)  =  1. 


P^  =  f^4 


„  _  35  4  30  2  3 

p4©-  g  5  8  ^  +8’ 


Aps3s(l)  =  1, 


(2-12) 
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Bps3s(l)  =  Cos(Arctan( 


Rcrystal 


Aps3s(2)  =  Cos(Arctan( 


sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
Rcrystal 


Bps3s(2)  =  Cos(Arctan( 


sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
Rcrystal 


)), 

)), 


xps3s2  = 


sourceheight  +  Aldepth  +  gap  +  Lidepth 
xps3sj  =  Lcrystal  / 

Rcrystal  sourceheight  +  Aldepth  +  gap  +  Lidepth 

>M2  ’  * 

x A1  =  Aldepth  /  ^ ,  and 
xLi  =  Lidepth  / 


)), 


The  second  configuration.  Figure  2.5,  is  for  the  disk 
source  (ds)  with  the  three  sided  (3s) .  The  detector  is  again 
divided  into  two  zones  to  compute  the  necessary  J  function, 
Jj<ds3s  :  The  first  one  is  for  the  truncated  inner  cone.  The 
second  is  for  the  convoluted  outer  wedge.  The  limits  of 
integration  in  Equation  2-13  show  the  increased  complexity  of 
determining  the  gamma-ray  path  lengths  when  modeling  a  source 
point  that  is  away  from  the  central  axis: 
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Zone  2 


Source 

height 


Zone  1 


Aldepth  gap 


Figure  2.5  Disk  Source-Solid  Crystal  (Heath,  1964) 


j  2  Rsource  rc/2  Bds3s(i) 

Jkds3s(Ey)= — - yX  fpdP  Jd(P  J^(5){l-Exp[-^(Ey)xds3Si(5)]} 

rcRcrystal  i=1  0  _n/2  Ads3s(i) 

x  {Exp[-SA1(EY)xAl(^)  -  ZLi(EY)xLi(^)]}d^  ( 2  - 

where  Ads3s(l)  =  1, 


Bds3s(l)  =  Cos(Arctan( 


-  p  sin  cp  +  -Jp2  sin2  <p  -  p2  +  Rcrystal2 
sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 


)), 


Ads3s(2)  =  Cos(Arctan( 


-  p  sin  cp  +  -^/p2  sin2  cp  -  p2  +  Rcrystal2 
sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 


)), 


Bds3s(2)  =  Cos(Arctan( 


-  p  sin  cp  +  -y/p2  sin2  cp  -  p2  +  Rcrystal2 
sourceheight  +  Aldepth  +  gap  +  Lidepth 

xds3sj  =  Lcrystal  /  and 


)), 


13) 
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xds3s2  = 


-psin(p  + 


VP 


2  •  2 

sin  cp  • 


■  p2  +  Rcrystal2 


sourceheight  +  Aldepth  +  gap  +  Lidepth 

l  ' 


The  third  configuration,  Figure  2.6,  is  for  the  point 
source  (ps)  with  the  five  sided  (5s)  cylindrical  detector 
(two  circular  faces,  one  annular  face,  plus  two  sides).  The 
detector  is  divided  into  four  zones  to  compute  the  J 
function,  J^psSs :  The  first  one  is  for  the  truncated  inner 
cone.  The  next  three  are  for  the  convoluted  outer  wedges: 


Zone  4 


Lcrystal 


Aldepth  gap 

Figure  2.6  Point  Source-Closed-end  Coaxial  Crystal 
(Camp  and  Van  Lehn,  1969) 
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1  4  Bps5s(i) 

Jkps5s(Ey)  =  “X  JPk(^){l-Exp[-ZGe(EY)xps5si(^)]} 

i=l  Aps5s(i) 

x  {Exp[-E  A1  (Ey  )xAl(^)  -  ELi(Ey)xLi(^)]}d^  where 

Aps5s(l)  =  1, 

Rcrystal  -  Rdd 


(2-14) 


Bps5s(l)  =  Cos(Arctan( 


Aps5s(2)  =  Cos(Arctan( 


sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
Rcrystal  -  Rdd 


Bps5s(2)  =  Cos(Arctan( 

Aps5s(3)  =  Cos(Arctan( 

Bps5s(3)  =  Cos(Arctan( 

Aps5s(4)  =  Cos(Arctan( 


sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
Rcrystal  -  Rdd 


■)), 

)), 


)), 


Bps5s(4)  =  Cos(Arctan( 


sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add 
Rcrystal  -  Rdd 

sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add 
Rcrystal 

sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
Rcrystal 

sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
Rcrystal 


)), 

)), 


-)), 


xps5s2  = 


sourceheight  +  Aldepth  +  gap  +  Lidepth 
xps5si  =  Add  /  4, 

sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal  +  Add  Rcrystal  -  Rdd 

«  Vm2 

xpsSsj  =  Lcrystal  /  and 
Rcrystal  sourceheight  +  Aldepth  +  gap  +  Lidepth 


xds5s4  = 
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Thus,  with  Equations  2-12  through  2-14,  the  dimensions 
of  the  source  and  detector,  and  the  energy-dependent 
macroscopic  absorption  cross  sections,  we  can  calculate  the 
J  function  values  for  the  Mo-99  gamma-rays  that  have 
correlation  data.  Then  we  proportion  those  values  according 
to  Equation  2-15  to  find  an  approximation  for  the  J  function 
of  the  actual  source  and  detector  geometry,  Jkds5s  : 


Jkds5s=  Jkds3s 


Jkps5s 

Jkps3s’ 


(2-15) 


To  get  some  confidence  in  using  this  approximation 
based  on  the  results  from  the  simple  configurations,  we 
compare  the  total  efficiencies  for  the  Mo-99  gamma-rays  using 
the  point-source-five-sided-detector  (ps5s)  to  those  of  the 
point-source-three-sided-detector  with  the  contribution  from 
the  inner  core  (equivalent  to  the  hole  in  the  ps5s  detector) 
removed.  In  this  instance,  we  will  compare  the  total 
efficiencies  with  the  Mo-99  source  10  cm  above  the  face  using 
Equations  2-11  through  2-14  and  deleting  the  Pk(^)  term. 

Pages  7  through  10  in  Appendix  C  show  the  equations  in 
Mathematica  code .  Table  2 . 1  below  displays  the  nearly  equal 
results  between  the  two  cases . 
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Table  2.1  Approximation  Check  with  Total  Efficiencies 
for  the  Closed-end,  Coaxial  Detector  with  Point  Source 


Gamma-Ray  (keV) 

ps5s  Total 
Efficiency 

Delta  ps3s  Total 
Efficiency 

778 

0.01144 

0.01143 

740 

0.01157 

0.01156 

411 

0.01289 

0.01288 

366 

0.01313 

0.01311 

181 

0.01553 

0.01552 

142 

0.01625 

0.01624 

140 

0.01633 

0.01632 

40 

0.01517 

0.01517 

To  bring  to  attention  a  special  note  about  the 
correlation  data  of  Mo-99  gamma-rays,  the  relatively  long 
lifetimes  of  the  energy  levels  allows  the  angular  correlation 
to  be  perturbed  by  the  electric  and  magnetic  quadrupole 
moments.  This  results  in  the  chemical  state  of  Mo-99 
affecting  the  angular  correlation  of  a  nuclear  event!  The 
coefficients  can  differ  by  a  factor  of  two  between  pure  Mo 
in  a  cubic  crystal  and  Mo  as  a  powder  in  the  compound 
MoO^/Mc^O^  (Gardulski  and  Wiedenbeck,  1974)  (Bailar  and 

others,  1973).  Table  2.2  displays  the  range  of  values  the 
coefficients  may  have  depending  on  the  chemical  form.  For 
our  purposes,  the  Mo-99  source  is  in  the  form  of  MoO^  /  Mo^O^ 

(AFTAC,  1997). 
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Table  2.2  Correlation  Coefficients  for  Some  Mo-99  Chemical 
Compounds  (Gardulski  and  Wiedenbeck,  1974) 


Cascade 

(keV) 

a2 

A4 

Source 

Form 

740-181 

0.126  ±  0.004 

-0.005  ±  0.006 

Metal 

740-181 

0.061  ±  0.003 

-0.004  ±  0.005 

Mo03 

powder 

740-40-140 

-0.184  ±  0.004 

0.001  ±  0.005 

Metal 

740-40-140 

-0.083  ±  0.009 

0.007  ±  0.012 

Mo03 

powder 

Finally,  to  get  the  results,  we  enter  Equations  2-11 
through  2-15  and  the  necessary  data  into  the  Mathematica 
program  with  the  code  shown  on  pages  19  through  30  of 
Appendix  C.  The  Mo-99  gamma-rays  that  have  correlation  data 
are  the  740,  181,  40,  and  140  keV  ones  shown  in  Figure  2.1. 
The  program  computes  the  normalized  angular  correlation,  W  , 
for  the  two  cases  where  the  source  is  10  cm  or  0  cm  above  the 
face.  Table  2.3  shows  the  values  of  W  for  the  10  cm  case, 
and  Table  2 . 4  shows  the  values  for  the  0  cm  case . 


Table  2.3  Calculated  Normalized  Angular  Correlation 
for  Mo-99  Source  10  cm  above  Detector 


Cascade 

(keV) 

W (ps3s) 

W (ps5s) 

W (ds3s) 

W (ds5s) 

740-181 

1.053 

1.052 

1.052 

1.052 

740-40 

0.918 

0.918 

0.919 

0.919 

740-140 

0.930 

0.930 

0.930 

0.930 

140-40 

1.104 

1.104 

1.103 

1.103 

Table  2.4  Calculated  Normalized  Angular  Correlation 
for  Mo-99  Source  0  cm  above  Detector 


Cascade 

(keV) 

W (ps3s) 

W (ps5s) 

W (ds3s) 

W (ds5s) 

740-181 

1.004 

1.004 

1.004 

1.004 

740-40 

0 . 994 

0.995 

0.994 

0.994 

740-140 

0.995 

0.995 

0.995 

0.995 

140-40 

1.005 

1.005 

1.005 

1.005 

Hence,  we  see  for  all  configurations  the  normalized 
angular  correlation,  W  ,  approaches  unity  as  the  source 
moves  closer  to  the  detector  as  Andreev  (1972)  claimed.  The 
correlation  effect  diminishes  as  the  solid  angle  subtended  by 
the  detector  increases .  The  probability  of  detecting  two 
correlated  gamma-rays  approaches  the  probability  of  detecting 
two  isotropically  emitted  gamma-rays.  Therefore,  in  view  of 
the  roughly  0.5%  effect  for  the  face  geometry,  we  will  make 
another  approximation  in  our  analytical  method  by  not 
considering  the  effect  of  angular  correlation. 
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3 .  An  Analytical  Coincidence  Correction  Method 
We  now  begin  the  development  of  an  analytical  method  to 
estimate  the  true  activity  of  a  source  based  on  measurements 
affected  by  coincidence  slimming.  The  analytical  method  will 
use  the  dimensions,  materials,  and  nuclear  properties  of  the 
source  and  detector  to  determine  the  probability  of  gamma- 
rays  being  individually  recorded  or  summed  with  others .  As 
stated  in  the  previous  chapters,  we  will  use  the 
approximations  of  (1)  modeling  the  source  as  a  thin  disk,  (2) 
ignoring  beta  particles  and  scattered  gamma-rays  that  may 
enter  the  detector  crystal  in  coincidence  with  other  gamma- 
rays,  and  (3)  ignoring  the  effect  of  angular  correlation 
between  gamma-rays  in  cascade .  Then  given  the  duration  of 
the  measurement,  the  peak  counts,  and  the  probability  of 
recording  the  nuclear  events,  we  can  obtain  an  accurate 
estimate  of  the  initial  activity. 


3 . 1  Determination  of  Summing  Events  from  Cascades 

In  order  to  determine  the  extent  of  summing-in  and  -out 
events  from  cascades,  we  need  to  investigate  a  radioisotope's 
decay  scheme  to  see  the  relationships  between  all  the 
existing  gamma-rays,  the  frequency  of  each  emission,  the 
presence  of  meta-stable  states,  and  the  presence  of  positron 
emission.  Also,  based  on  the  energy  of  the  gamma-ray,  the 
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absolute  peak  and  total  efficiencies  will  affect  the 
recording  of  the  counts . 

First,  we  will  look  at  a  simple,  hypothetical  decay 

scheme  with  only  P_  decay  from  parent  to  daughter  nuclei  and 
de-excitation  by  gamma-ray  emission  with  no  meta-stable 
states  as  shown  in  Figure  3.1.  In  this  example,  we  will 
include  the  ratio  of  internal  conversion  electrons  being 
emitted  per  gamma-ray,  a .  However,  we  will  assume  these 
electrons  will  not  penetrate  the  aluminum  end  cap  and  thereby 
not  deposit  any  energy  in  the  detector  crystal . 


5C  —  branch  ratio  ni  =  highest  level 

Figure  3.1  Hypothetical  Decay  Scheme 

Let  us  look  at  the  probability  of  a  detector  recording 
the  transition  from  level  3  to  level  0  per  decay.  There  are 
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four  paths  or  chains  of  gamma-rays  emitted  in  this 
transition:  (1)  y30;  (2)  y31  and  y10;  (3)  y32  and  y20 ;  and, 

(4)  y32 ,  y21 ,  and  y1Q.  The  last  three  chains  are  the  ones 

that  cause  summing-in  events.  During  its  resolution  time, 
the  detector  collects  all  the  deposited  energies  of  the 
constituent  gamma-rays  and  registers  a  count  for  the  sum— in 
this  case,  a  count  for  y3Q . 

First,  the  probability  of  the  detector  recording  chain 
1  is  the  probability  of  y30  depositing  its  full  energy  (peak 

efficiency),  £39,  given  the  probability  that  the  parent 
nucleus  decays  to  level  3,  P3  ,  the  probability  that  the 
daughter  nucleus  de-excites  to  level  0,  X30 /  and  the 
probability  that  the  daughter  nucleus  emits  a  gamma-ray  vice 

1 

an  internal  conversion  electron,  - .  Thus,  the 

l  +  a30 

P 

probability  for  recording  chain  1  is  P3 ■^3°£30  . 

l  +  «30 

Next,  the  probability  of  the  detector  recording  chain  2 
is  the  probability  of  y31  and  y10  depositing  their  full 

energy,  e^efo  /  given  the  probability  that  the  parent  nucleus 
decays  to  level  3,  p3 ,  the  probability  that  the  daughter 
nucleus  de-excites  to  level  1  and  then  to  level  0,  %3i%io. 


36 


and  the  probability  that  the  daughter  nucleus  emits  gamma- 


rays  vice  internal  conversion  electrons,  - - - - .  The 

l  +  a31l  +  a10 

P  P 

probability  for  recording  chain  2  is  R  ^31  31  XlO  10  . 

l  +  a3i  l  +  a10 

The  probability  of  the  detector  recording  chain  3  is 
the  probability  of  y32  and  Y20  depositing  their  full  energy, 

e32e20  '  given  the  probability  that  the  parent  nucleus  decays 
to  level  3,  p3 ,  the  probability  that  the  daughter  nucleus 
de-excites  to  level  2  and  then  to  level  0,  X32X20  >  and  the 
probability  that  the  daughter  nucleus  emits  gamma-rays  vice 

1  1 

internal  conversion  electrons,  - - - - .  Therefore,  the 

l  +  a32  l  +  «20 

P  P 

probability  for  recording  chain  3  is  R  %32e32  %20e20  _ 

l  +  a32l  +  a20 

At  last,  the  probability  of  the  detector  recording 
chain  4  is  the  probability  of  y32 ,  y21  /  and  y1Q  depositing 

their  full  energy,  £32£21e10  •  given  the  probability  that  the 
parent  nucleus  decays  to  level  3,  P3 ,  the  probability  that 
the  daughter  nucleus  de-excites  to  level  2,  to  level  1,  and 
then  to  level  0,  X32X21X10 '  and  the  probability  that  the 
daughter  nucleus  emits  gamma-rays  vice  internal  conversion 
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electrons , 


1 


1 


1 


Thus,  the  probability  for 


l  +  oc32  l  +  0t21  l  +  ot10 


recording  chain  4  is 


D  %32e32  X20e20  Xl0e10 
3  1  +  a32  1  +  a20  1  +  «10 


Because  the  parent  nucleus  will  decay  only  once  through 
one  of  the  chains,  the  probabilities  of  recording  the  chains 
are  independent.  As  such,  the  probability  of  recording  a 
level  3  to  0  transition  is  the  sum  of  the  probabilities,  S30 , 
of  the  chains  as  Equation  3-1  shows: 


S30  =  {P3H 


%30e30 
l  +  a30 


+ 


X31e31  ,%10el(K  + 
l  +  cc31  l  +  a10 


%32e32  ,%20e20  +  %21e21  ,XlOel(Kv ,  ^_1 

l  +  a32  l  +  a20  l  +  a21  l  +  a10 


We  now  proceed  to  find  the  probability  of  a  detector 
recording  the  transition  from  level  3  to  level  1  per  decay. 
There  are  two  chains  of  gamma-rays  in  this  transition:  (1) 
y31and  y10 ;  and,  (2)  y32 ,  y2^ ,  Yjo  •  The  probability  of  the 

detector  recording  chain  1  is  the  probability  of  y31 

depositing  its  full  energy  (peak  efficiency),  £31 ,  given  the 
probability  that  the  parent  nucleus  decays  to  level  3,  P3 , 
the  probability  that  the  daughter  nucleus  de-excites  to  level 
1,  X31 /  the  probability  that  the  daughter  nucleus  emits  a 

gamma-ray  vice  an  internal  conversion  electron,  — - —  ,  and, 

1  +  Ct3i 


38 


however,  the  probability  that  the  YlO  gamma-ray  emitted  in 

cascade  does  not  deposit  any  energy  (total  efficiency) ,  ejo  • 
The  last  probability  accounts  for  the  summing-out  event  from 
coincident  detection  of  the  Y31  and  YlO  gamma  -  rays .  Thus, 

P  t 

the  probability  for  recording  chain  1  is  P3- - Xlo(l-i - )  • 

I  +  OC31  1  +  «10 

Next,  the  probability  of  a  detector  recording  chain  2 
is  the  probability  of  Y32  and  Y21  depositing  their  full 

energy,  £33621 /  given  the  probability  that  the  parent  nucleus 
decays  to  level  3,  (33,  the  probability  that  the  daughter 

nucleus  de-excites  to  level  2  and  then  level  1,  X32X21  /  the 
probability  that  the  daughter  nucleus  emits  gamma-rays  vice 

1  1 

internal  conversion  electrons,  - ,  and  the 

I  +  OC32  l  +  OC2i 

probability  that  the  Y10  gamma-ray  emitted  in  cascade  does 
not  deposit  any  energy,  ejo .  Thus,  the  probability  for 

recording  chain  2  is  P3  j^32§32  X2lf.2i_^  — £l0 — ^  _ 

l  +  ot32  l  +  a21  l  +  oc10 

Hence,  the  probability  of  recording  a  level  3  to  1 
transition  is  the  sum  of  the  probabilities,  S31 ,  of  the 
chains  from  above  as  Equation  3-2  shows: 
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s„  =  (fcH^^^ltood-T^). 


+  a31  l  +  a32  1  +  0-21 


1  +  aio 


(3-2) 


Next,  we  determine  the  probability  of  a  detector 
recording  the  transition  from  level  3  to  level  2  per  decay. 
There  are  two  chains  in  this  transition:  (1)  y32  and  y20; 

and  (2)  y32 ,  Y21  /  and  yio  •  There  is  the  probability  of 
summing-out  events  due  to  coincident  detection  of  y32  with 

y2o  from  chain  1  and  with  y21  or  y10  from  chain  2 . 

First,  the  probability  of  the  detector  recording  chain 

1  is  the  probability  of  y32  depositing  its  full  energy,  e32 , 

given  the  probability  that  the  parent  nucleus  decays  to  level 
3,  |33 ,  the  probability  that  the  daughter  nucleus  de-excites 

to  level  2,  %32 ,  the  probability  that  the  daughter  nucleus 
emits  a  gamma-ray  vice  an  internal  conversion  electron, 

1 

- - ,  and  the  probability  that  the  y2g  emitted  in  cascade 

I  +  CC32 

does  not  deposit  any  energy,  e20 .  The  probability  of 

P  t 

recording  chain  1  is  2o(1~T~7  )• 

1  +  a32  l  +  a20 

Second,  the  probability  of  the  detector  recording  chain 

2  is  the  probability  of  y32  depositing  its  full  energy,  e32 , 
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given  the  probability  that  the  parent  nucleus  decays  to  level 
3,  P3 ,  the  probability  that  the  daughter  nucleus  de-excites 
to  level  2,  X32 /  the  probability  that  the  daughter  nucleus 
emits  a  gamma-ray  vice  an  internal  conversion  electron, 

1 

- - ,  and  the  probability  that  the  721  and  Yjq  gamma -rays 

I  +  OC32 


emitted  in  cascade  do  not  deposit  any  energy,  621  and  e^o 
The  probability  of  recording  chain  2  is 

P  ,%32e32w  n  e21  w  n  e10 

W)X2l(1“  WXl0(1‘ w  • 

Putting  it  all  together,  Equation  3-3  shows  the 
probability  of  recording  the  level  3  to  2  transition: 


XXiod- 


e10 


1+aio 


))}.  (3-3) 


Moving  to  the  next  transition,  we  will  determine  the 
probability  of  a  detector  recording  the  de-excitation  from 
level  2  to  level  0  per  decay.  There  are  four  chains  involved 
in  this  transition:  (1)  y2Q ;  (2)  y21  and  y1Q  ;  (3)  y32  and 

y20;  and,  (4)  Y32  ,  y21 ,  and  y1Q .  For  this  transition,  there 
is  the  probability  of  summing-out  events  due  to  coincident 
recording  of  y^2  at  the  beginning  of  the  chain  3.  Also, 
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there  is  the  probability  of  summing-in  events  from  the  y21 
and  Yj0  cascade. 

First,  the  probability  of  recording  chain  1  is  the 
probability  of  y2o  depositing  its  full  energy,  820/  given  the 

probability  that  the  parent  nucleus  decays  to  level  2,  P2 • 
the  probability  that  the  daughter  nucleus  de-excites  to  level 
0'  X20 '  and  the  probability  that  the  daughter  nucleus  emits  a 

1 

gamma-ray  vice  an  internal  conversion  electron,  - .  Thus 

l  +  a20 

P 

the  probability  for  chain  1  is  B2  ^2°g2Q  _ 

l  +  a20 

Because  the  gamma-rays  of  chain  1  are  a  subset  of  chain 
3,  we  only  need  to  include  the  probability  that  the  nucleus 
decays  to  level  3,  P3 ,  de-excites  to  level  2,  X32 /  and  emits 
a  gamma-ray,  >  vice  an  internal  conversion  electron, 

1 

- - ,  without  the  detector  receiving  any  energy  from  732 , 

I  +  OC32 

832  (thereby  increasing  the  occurrence  of  the  y20  and  Y21-Y10 
cascades) .  The  resulting  probability  for  chain  3  is 


P3%32(1 — 


e32  ■)^X20g20') 

1  +  (X32  1  +  (*20 


Next,  the  probability  of  recording  chain  2  is  the 


probability  of  Y21  and  Y10  depositing  their  full  energy, 
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e21e10 '  given  the  probability  that  the  parent  nucleus  decays 
to  level  2,  P2 ,  the  probability  that  the  daughter  nucleus 
de-excites  to  level  1  and  then  level  0,  JC21X1O'  an<i  the 
probability  that  the  daughter  nucleus  emits  gamma-rays  vice 

1  1 

internal  conversion  electrons,  - - - - .  The  probability 

1  +  «21  1  +  OC10 


of  recording  chain  2  is  P2 (^2l£21)(^loglQ)  . 

Z  l  +  a2i  l  +  a10 

Again,  because  the  gamma-rays  of  chain  2  are  a  subset 
of  chain  4,  we  only  need  to  include  the  probability  that  the 
nucleus  decays  to  level  3,  P3 ,  de-excites  to  level  2,  %32 ' 

and  emits  a  gamma-ray,  Y32 ,  vice  an  internal  conversion 

1 

electron,  — ,  without  the  detector  receiving  any  energy 

from  Y32 ,  £32 •  The  resulting  probability  for  chain  4  is 


P3X32O- 


e32  w%21e21wXlOeKK 
l  +  a32  l  +  a21  l  +  a10 


Ergo,  the  probability  of  recording  a  level  2  to  0 
transition  is  the  sum  of  the  probabilities,  S20 /  of  the  four 
chains  as  Equation  3-4  shows: 


S20  ~  O2  +  P3%32(1 — 


e32  ,  X20e20  +  X21e21  ,  XlO£fo  s , 

1  +  ^32  l  +  «20  l  +  a21  l  +  a10 


(3-4) 
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Moving  along,  we  look  at  the  probability  of  recording 
the  transition  from  level  2  to  level  1  per  decay.  There  are 
two  chains  involved  with  this  transition:  (1)  Y21  an<^  Y10  > 

and  (2)  Y32 ,  Y21  •  an<^  YlO  •  Once  more,  there  is  the 
probability  of  summing-out  events  for  Y21  ^ue  to  coincident 
detection  with  Y32  from  the  chain  2  cascade  and  detection 
with  Y10  later  in  the  cascades.  As  for  summing-in  events, 

there  are  none  because  the  nucleus  emits  no  other  gamma-rays 
from  level  2  to  1 . 

So,  the  probability  of  the  detector  recording  chain  1 

is  the  probability  of  Y21  depositing  its  full  energy,  £21, 
given  the  probability  that  the  parent  nucleus  decays  to  level 
2,  P2 ,  the  probability  that  the  daughter  nucleus  de-excites 
to  level  1,  %21 '  the  probability  that  the  daughter  nucleus 
emits  a  gamma-ray  vice  an  internal  conversion  electron, 

1 

- - ,  and  the  probability  that  YlO  emitted  in  cascade  does 

i  +  a2i 

not  deposit  any  energy,  Ejq  .  The  probability  of  recording 

chain  1  is  • 

Next,  due  to  the  fact  that  the  gamma-rays  of  chain  1 
are  a  subset  of  chain  2,  we  just  include  the  probability  that 
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the  nucleus  decays  to  level  3 ,  P3  ,  de-excites  to  level  2 , 

X32 /  and  emits  a  gamma-ray,  Y32 ,  vice  an  internal  conversion 

1 

electron,  - - ,  without  the  detector  receiving  any  energy 

1  +  ot32 


from  Y32 ,  £32 •  The  resulting  probability  for  chain  2  is 


feteO-r^-xf^XXwO-T^-)  ■ 


l  +  «32  l+a2i 


l  +  aio 


The  probability  of  recording  a  level  2  to  1  transition 
is  the  sum  of  the  probabilities,  S21 ,  of  the  two  chains  as 
Equation  3-5  shows: 


S21  =  $2  +P3X32(1-  12-)}{1X21„21HX10(1-  1  .  !°  )) 


l  +  oc32  l  +  a21 


l  +  aio 


(3-5) 


At  last,  we  look  at  the  probability  of  the  detector 
recording  the  level  1  to  0  transition.  There  are  four  chains 
of  concern  with  this  process:  (1)  YlO  >  (2)  Y21  and  YlO ;  (3) 

Y31  and  YlO'"  and,  (4)  732'  Y21  /  and  Y10  •  Again,  there  are 
probabilities  of  summing-out  with  Y21  in  chains  2  and  3,  with 
Y31  in  chain  4,  and  with  Y32  in  chain  3. 

First,  the  probability  of  the  detector  recording  chain 

1  is  the  probability  of  Y10  depositing  its  full  energy,  ef0 , 
given  the  probability  that  the  parent  nucleus  decays  to  level 
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1,  Pi,  the  probability  that  the  daughter  nucleus  de-excites 
to  level  0,  %i0,  and  the  probability  that  the  daughter 
nucleus  emits  a  gamma-ray  vice  an  internal  conversion 

1 

electron,  - - .  Thus,  the  probability  for  recording  chain 

1  +  OCio 


1  is 


p  Xl0e10 


Next,  the  gamma-ray  of  chain  1  is  a  subset  of  chain  2, 
we  include  the  probability  that  the  nucleus  decays  to  level 
2,  P2 ,  de-excites  to  level  1,  X21  >  anc^  emits  a  gamma-ray, 


1 

Y21 ,  vice  an  internal  conversion  electron,  - ,  without 

1  +  021 


the  detector  receiving  any  energy  from  721  ,  £21  •  The 


resulting  probability  for  chain  2  is  P2%2l(l~1  ~ — )(XlOelQ)  . 

Once  more,  the  gamma-ray  of  chain  1  is  a  subset  of 
chain  3,  we  include  the  probability  that  the  nucleus  decays 
to  level  3,  P3 ,  de-excites  to  level  1,  X31  >  and  emits  a 

1 

gamma-ray,  y3i ,  vice  an  internal  conversion  electron,  - , 

l  +  o3i 

without  the  detector  receiving  any  energy  from  y3i ,  e^x  .  The 


resulting  probability  for  chain  3  is  P3%3i(l- 


e31  w%10el(h 
I  +  O31  l  +  Oio 
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Finally,  the  probability  of  the  detector  recording 
chain  4  is  the  probability  of  y10  depositing  its  full  energy, 

efo ,  and  the  probability  that  the  daughter  nucleus  emits  a 

1 

gamma-ray  vice  an  internal  conversion  electron,  - - ,  given 

1  +  OCio 

that  the  parent  nucleus  decays  to  level  3 ,  P3 ,  the 
probability  that  the  daughter  nucleus  de-excites  to  level  2, 
%32 ,  the  probability  that  the  daughter  nucleus  emits  y32 
without  detection,  the  probability  that  the  nucleus  de- 
excites  to  level  1,  X21  >  an<^  ^e  probability  that  the  nucleus 
emits  ^2\  without  detection.  Thus,  the  probability  for 

t  t  p 

recording  chain  4  is  tea-TT^-telO-r^Jn^12-  • 

I  +  OC32  l  +  oc21  1  +  a10 

The  probability  of  recording  a  level  1  to  0  transition 
is  the  sum  of  the  probabilities,  Sjq  ,  of  the  four  chains  as 
Equation  3-6  shows: 


SlO  -  {Pi  +  [P2  +  p3X32(1-TTT7— )lX2l(1-7TTr_)  +  P3X3l(1- 


1  +  «32 


1  +  a21 


e31  xwXlQefo, 
l  +  a31  l  +  a10 


(3-6) 


From  the  analysis  of  this  simple,  hypothetical  decay 
scheme,  a  pattern  emerges  in  accounting  for  (1)  the 
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probability  of  gamma-rays  preceding  the  transition  of 
interest  that  cause  summing-out  events,  (2)  the  probability 
of  gamma-rays  in  the  transition  of  interest  that  deposit 
their  full  energy  into  the  detector  that  cause  summing-in 
events,  and  (3)  the  probability  of  gamma-rays  that  follow  the 
transition  of  interest  that  cause  summing-out  events .  This 
pattern  holds  for  decay  schemes  with  more  energy  levels,  such 
as  for  Mo-99  and  Cs-136,  providing  that  there  is  no  angular 
correlation  terms  to  include.  Due  to  the  large  number  of 
terms,  we  will  not  present  the  equations  for  probabilities  of 
recording  the  energy  level  transitions . 

Fortunately,  Andreev  and  others  (1972)  noted  this 
pattern  and  developed  a  recursion  relation— a  major  portion  of 
the  analytical  method  we  seek.  Their  formula  produces  the 
terms  of  the  probability  equations,  again,  providing  there  is 
no  angular  correlation  to  include.  Their  recursion  relation 
consists  of  three  main  factors.  As  alluded  to  above,  the 
first  factor,  Bj  ,  accounts  for  the  probability  of  gamma-rays 
preceding  the  transition  of  interest,  which  begins  with  level 
i,  that  cause  summing-out  events  as  Equation  3-7  shows: 

m  gt 

Bj=Pi+  X  BnXni(l--4-)  .  (3-7) 

n=i+l  1  +  ani 


48 


The  second  factor,  ,  accounts  for  the  probability  of 

gamma-rays  in  the  transition  of  interest  (level  i  to  k )  that 
deposit  their  full  energy  into  the  detector  that  cause 
summing-in  events  as  Equation  3-8  shows: 


4  y  e!j 

Aik  -  Xik  ( j  +  a.k  > +  ;_S  Xij(l  +  a„ ) A jk 


j-k+l 


y 


(3-8) 


The  third  factor,  Mk ,  accounts  for  the  probability  of 
gamma-rays  that  follow  the  transition  of  interest,  which  ends 
at  level  k,  that  cause  summing-out  events  as  Equation  3-9 
shows.  Because  there  are  no  gamma-rays  emitted  in 
coincidence  below  level  0,  M0  =  1  : 


Mk  JMjXkj(1  1  +  aJcj)*  (3~9) 

The  product  of  these  three  factors  yields  the  equation 
for  the  probability  of  the  detector  recording  a  level  i  to  k 
transition,  ,  as  Equation  3-10  displays: 

Sik  =  BiAikMk.  (3-10) 
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In  the  present  form,  the  Equation  3-10  does  not  include 
the  number  of  decays  that  occurred  during  the  measurement  or 
the  number  of  counts  recorded  in  the  energy  peak,  Ej^  ,  i.e., 
the  energy  released  in  the  level  i  to  k  transition.  To 
include  this  data  into  the  equation,  we  introduce  the  factor 
N  to  account  for  the  number  of  decays  and  to  be  the 
number  of  peak  counts . 

With  respect  to  N ,  we  wish  to  determine  the  number  of 
decays  events  that  happened  during  the  time  of  the 
measurement  correcting  for  any  decrease  in  the  activity  of 
the  source.  We  will  not  account  for  activation  or  production 

of  parent  nuclei  during  the  measurement  as  the  case  does  not 

» 

apply  to  AFTAC.  With  that  stated.  Equation  3-11  determines 
the  number  of  decay  events,  N,  that  occurred  during  a 
measurement  from  time  tj  to  time  t2  given  the  true  initial 
activity,  Cq  ,  of  the  source  and  the  radioisotope's  decay 
constant,  X  : 


N  =  -jjp-(Exp[-fa1]-Exp[-A.t2])  . 


(3-11) 
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However,  if  X  is  small  compared  to  -  or  what  we 

t2_tl 

1 

will  call  — ,  then  Equation  3-11  is  poorly  conditioned.  To 
At 

remedy  this,  we  will  use  a  series  expansion.  First,  we 
convert  Equation  3-11  to  a  different  form: 


N  =  C0(At)Exp[-A,t1  ]  { 


1  -  Exp[-XAt] 


(3-12) 


where  CQ(At)Exp[— Xtj]  would  be  the  counts  if  the  initial 

1  —  Exp[— AAt] 

activity  were  maintained  and  { - — - }  is  the  correction 

/.At 

factor  accounting  for  the  decrease  in  the  activity  during  the 
measurement.  On  the  latter  term,  we  apply  the  series 
expansion: 


1-1- 

1  — Exp[— XAt)  _  h=0 

1  XAt  *  XAt 


i-XAty 

h! 


_  y  (-l)11-1^)11-1  y  (-XAtf 

h!  _A(h+l)! 


(3-i3: 


where  we  would  use  a  few  terms  if  0<AAt«l.  Thus,  Equation 
3-12  takes  on  the  new  form: 
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©o 


N  =  C0(At)Exp[-X,t1]  X' 
h=0 


(— X.At)h 
(h+1)!  • 


(3-14) 


Hence  with  the  product  of  the  probability  of  recording 
the  level  i  to  k  transition,  S& ,  and  the  number  of  decays 
that  occurred  during  the  measurement,  N ,  we  find  the  number 
of  counts  in  the  energy  peak,  i.e.,  : 


uk 


=  BiAikMkN 


(3-15) 


By  rearranging  the  terms  in  Equation  3-15,  we  find  the 
analytical  method  that  determines  the  true  initial  activity 
of  a  source: 


Sik 


oo 


BiAikMk  (At)Exp[— X 

h=0 


(~AAt)h  ‘ 
(h  +  1)! 


(3-16) 


3.2  Modification  of  Method  for  Special  Cases 

In  the  above  form,  the  analytical  method  can  be  applied 

to  the  most  complex  (5—  and  y  decay  scheme.  However,  if  a 

radioisotope  has  meta-stable  states  or  |3+  emission  in  its 
decay,  the  method  needs  modification. 
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A  meta-stable  state  interrupts  the  coincidence  of  a 
cascade  if  the  state  has  a  half-life  that  is  long  relative  to 
the  resolving  time  of  the  detector.  It  is  possible  that  the 
meta-stable  state  may  decay  quickly  enough  to  emit  the  next 
gamma-ray  in  the  cascade  within  the  resolving  time. 

Therefore,  the  summing-in  and  -out  events  are  greatly  reduced 
when  the  nucleus  reaches  this  state.  Of  course,  there  may  be 
more  summing  events  if  a  cascade  continues  after  this  meta¬ 
stable  state. 

The  analytical  formula  presumes  there  are  no  breaks  in 
a  cascade.  To  remedy  this  problem,  a  solution  is  to  de¬ 
couple  the  cascades,  adjust/check  Bj  to  correctly  estimate 

the  production  of  each  gamma-ray,  execute  the  equations  for 
each  chain,  and  then  sum  the  results. 
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Na-22 


Na-22 


Na-22  Decay  Scheme  Modified  Na-22  Decay  Scheme 

Figure  3.2  Modified  Na-22  Decay  Scheme 
(McCallum  and  Coote,  1975) 


For  P+  emission,  McCallum  and  Coote  (1975)  modified 

Andreev's  method  by  representing  the  P+  branch  with  a  pseudo 

P”  branch  that  decays  to  a  level  511  keV  higher  than  the 
actual  energy  state  and  has  an  internal  conversion 
coefficient  a  =  -05  as  shown  in  Figure  3.2.  This  fix 
provides  for  the  two  511  keV  photons  that  are  not  measured  in 
coincidence  (McCallum  and  Coote,  1975) . 

3.3  Application  of  Method  for  Mo-99  and  Cs-136 

With  the  analytical  method  determined,  we  will  now 
apply  it  to  find  the  probabilities  of  recording  the 
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Table  3.1  Mo-99  Nuclear  Data  (Peker,  1994) 


Energy 

(keV) 

P  Decay 
Fraction 

Branch 

Ratio 

Internal 

Con¬ 

version 

Int . 

Conv. 

Error 

Inten¬ 

sity 

% 

Inten¬ 

sity 

Error 

778 

0.164 

0.260 

0.00059 

0.00008 

35.1 

0.4 

740 

0.164 

0.739 

0.0016 

0.0004 

100 

1 

411 

0.164 

0.001 

0.003 

0.001 

0.120 

0.005 

366 

0.012 

1 

0.0076 

0.0010 

9.82 

0.11 

181 

0 

0.579 

0.126 

0.007 

49.4 

0.6 

142 

0.824 

0.01 

29 

3 

0.021 

0.002 

140 

0 

1 

0.119 

0.003 

37.3 

1.9 

40 

0 

0.421 

3.2 

0.2 

8.68 

0.27 

transitions  in  the  decay  of  Mo-99  and  Cs-136.  Because  these 
probabilities  are  the  key  part  of  obtaining  the  true  initial 
activity,  we  will  concentrate  on  calculating  their  values  for 
the  two  radioisotopes.  We  will  put  aside  the  number  of 
decays,  N,  and  recorded  counts,  ,  which  can  easily  be 
found  after  a  measurement. 

To  start,  we  note  the  eight  prominent  gamma-rays  and 
six  levels  of  Mo-99  in  Figure  2.1  and  the  fifteen  gamma-rays 
and  eight  levels  of  Cs-136  in  Figure  2.2.  Their  nuclear  data 
is  listed  in  Tables  3.1  and  3.2: 
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Table  3.2  Cs-136  Nuclear  Data 

(Tuli,  1987) 


Energy 

(keV) 

P  Decay 
Ratio 

Branch 

Ratio 

Internal 

Conversion 

1235 

0.00790 

0.982 

0 

1048 

0.0198 

1 

0 

818 

0 

1 

0.00282 

507 

0.0226 

0.527 

0.0112 

340 

0.929 

0.673 

0.0305 

320 

0.0226 

0.272 

0.0393 

273 

0.00128 

0.670 

0.016 

187 

0.00790 

0.018 

0.190 

176 

0.929 

0.159 

0.094 

166 

0.0226 

0.201 

0.245 

164 

0.0178 

1 

2.26 

153 

0.929 

0.092 

0.433 

109 

0.00128 

0.013 

1.47 

86 

0.00128 

0.314 

0.343 

67 

0.929 

0.076 

0.694 

The  next  piece  of  information  we  need  is  data  to 
characterize  the  peak  efficiency  of  the  model  detector. 

AFTAC  has  measured  the  peak  efficiency  of  Detector  #120  using 
a  source  of  standard  radioisotopes  10  cm  above  the  face.  The 
program  that  calibrates  the  energy  response  of  the  detector 
to  the  known  gamma-ray  energies  has  produced  a  function  of 

the  peak  efficiency,  ejjocm  •  f°r  a  source  at  10  cm  above  the 
face  for  a  gamma -ray  with  energy,  Ey  : 


efocm(EY)  =  Exp[-5.927-0.8438Ln[Ey]-0.02031(Ln[Ey])2  - 


(3-17) 


0.00007080(Ln[Ey  ])3  +  0.02496(Ln[Ey])4  +  0.01560(Ln[Ey  ])5]  . 

With  (1)  the  nuclear  data  on  Mo-99  and  Cs-136,  (2)  the 

macroscopic  absorption  cross  sections  for  aluminum,  lithium, 
and  germanium  for  Mo-99  gamma-rays  (page  7,  Appendix  C)  and 
for  Cs-136  gamma-rays  (page  8,  Appendix  D) ,  and  (3)  a  means 
to  determine  the  peak  efficiency  of  the  detector  at  a 
reference  height,  we  can  now  determine  the  total  efficiency 
at  10  cm,  the  peak-to-total  ratio,  and  the  efficiencies  at 
the  face.  As  we  previously  have  done  in  Chapter  2.3,  we 
transform  Equations  2-12  through  2-14  with  the  same 

definitions  for  the  terms  to  find  the  total  efficiency,  8l , 
for  the  three  simple  configurations  by  removing  the  Legendre 
polynomials : 

j  2  Bps3s(i) 

e^sCEy)  =  ~X  J{l-Exp[-XGe(Ey)xps3sj(£)]}  (3-18) 

i=lAps3s(i) 

x  {Exp[-X A1  (Ey )xAl(^)  -  ZLi(EY)xLi(^)]}d^  , 
j  2  Rsource  nil  Bds3s(i) 

etds3s(Ey)  =  — - -jX  JpdP  jd<P  J{l-Exp[-ZGe(Ey)xds3si(^)]} 

rcRcrystal  i=1  0  _n/2  Ad/3s(i) 

x  {Exp[-SA1(Ey)xAl(^) - 2Li(Ey)xLi(^)]}d^  ,  and  (3-19) 
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(3-20) 


1  4  Bps5s(i) 

eWet)  =  -X  1  { 1  -  Exp[-ZGe  (Ey )  xps5si  (4)] } 

i=lAps5s(i) 

x  {Exp[-ZA1(EY)xAl(^)-ZLi(Ey)xLi(^)]}d^  . 

Then,  using  the  approximation  of  proportioning  the  total 
efficiencies  from  the  three  simple  configurations,  we  modify 
Equation  2-15  to  find  the  total  efficiency  for  the  model 
configuration  of  a  thin  disk  source  and  closed-end,  coaxial 
detector: 


£lds5s  =  elds3s 


elps5s 

£lps3s 


(3-21) 


After  finding  the  total  efficiency  of  the  model 
configuration  with  the  source  at  10  cm  above  the  face  with 
Equations  3-18  through  3-21  and  then  finding  the  peak 
efficiency  for  each  gamma-ray  of  Mo-99  and  Cs-136  with 
Equation  3-17,  we  determine  the  peak-to-total  (P/T) 
efficiency  ratios  which  we  assume  are  sufficiently 
independent  of  the  distance  between  source  and  detector 
(McCallum  and  Coote,  1975) .  Then  we  find  the  total 
efficiencies  for  all  the  Mo-99  and  Cs-136  gamma-rays  with  the 
sources  on  the  face.  Finally,  we  multiply  the  P/T  ratios 
with  the  face  total  efficiencies  to  obtain  the  face  peak 
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efficiencies  for  all  the  gamma - rays .  Tables  3.3  and  3.4  show 
the  efficiencies  and  P/T  ratios  for  the  Mo-99  and  Cs-136 
sources  on  the  face.  For  Mo-99,  pages  13  through  17  in 
Appendix  C  show  the  calculations,  and,  for  Cs-136,  pages  13 
through  18  in  Appendix  D  show  the  calculations. 


Table  3.3  Detector  #120  Calculated  Efficiencies  with 

Mo- 9 9  Source  at  0  cm 


Gamma-Ray 

(keV) 

Total 

Efficiency 

Peak  Efficiency 

P/T  Ratio 

778 

0.2002 

0.0578 

0.2887 

740 

0.2028 

0.0604 

0.2978  ! 

411 

0.2302 

0.1003 

0.4357  I 

366 

0.2354 

0.1108 

0.4707 

181 

0.2941 

0.1994 

0.6780 

142 

0.3113 

0.2277 

0.7314 

140 

0.3130 

0.2291 

0.7319  | 

40 

0.2566 

0.0394 

0.1535 
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Table  3.4  Detector  #120  Calculated  Efficiencies  with 

Cs-136  Source  at  0  cm 


Gamma-Ray 

(keV) 

Total 

Efficiency 

Peak  Efficiency 

P/T  Ratio 

1235 

0.1767 

0.0386 

0.2184 

1048 

0.1851 

0.0446 

0.2410 

818 

0.1975 

0.0553 

0.2800 

507 

0.2203 

0.0837 

0.3799 

340 

0.2391 

0.1181 

0.4939 

320 

0.2427 

0.1246 

0.5134 

273 

0.2734  ! 

0.1455 

0.5322 

187 

0.2912 

0.1947 

0.6686 

176 

0.2951 

0.2026 

0.6865 

166 

0.2958 

0.2095 

0.7082 

164 

0.2957 

0.2113 

0.7146 

153 

0.2955 

0.2184 

0.7391 

109 

0.3156 

0.2392 

0.7579 

86 

0.3180 

0.2210 

0.6950 

67 

0.3129 

0.1680 

0.5369 

At  this  point,  all  the  data  is  present  to  employ  the 
analytical  method.  Equations  3-7  through  3-10,  to  calculate 
the  probabilities  of  recording  the  transitions  in  Mo-99  and 
Cs-136.  In  addition,  we  can  compare  the  probabilities  with 
those  of  the  no-coincidence-assumed  formula,  i.e.,  Equations 

Table  3.5  Detector  #120  Calculated  Probabilities  of 
Recording  a  Transition  per  Decay  of  Mo-99  at  0  cm 


Gamma-Ray 

(keV) 

No- Summing 
Method 

Analytical 

Method 

Ratio 

778 

2.464E-3 

2.467E-3 

0.9989 

740 

7.312E-3 

5.206E-3 

0.7120 

411 

1.640E-5 

1.257E-5 

0.7665 

366 

1.338E-3 

1.334E-3 

0.9970 

181 

1.243E-2 

9.979E-3 

0.8028 

142 

6.669E-5 

6.667E-5 

0.9997 

140 

1.885E-1 

1.859E-1 

0.9862 

40 

4.789E-4 

2.750E-4 

0.5742 
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3-7  through  3-10  with  the  terms  accounting  for  summing-in  and 
-out  events  deleted.  Tables  3.5  and  3.6  show  the  comparison 
for  Mo-99  and  Cs-136.  For  Mo-99,  pages  31  through  37  in 
Appendix  C  show  the  calculations,  and,  for  Cs-136,  pages  20 
through  25  in  Appendix  D  show  the  calculations. 

From  the  information  in  Tables  3.5  and  3.6,  we  notice 
the  extent  that  summing  events  have  on  measuring  Mo-99  and 
Cs-136  sources  on  the  face  of  the  detector.  For  Mo-99,  the 
probability  of  recording  a  count  for  the  740  keV  gamma-ray 
per  decay  is  reduced  by  nearly  29%  from  what  the  simplistic, 
no-coincidence-assumed  formula  produces.  Lastly,  for  the  40 
keV  gamma-ray,  its  probability  is  reduced  by  almost  43%.  In 
the  case  of  Cs-136,  the  smallest  reduction  is  30%  for  the  507 

Table  3.6  Detector  #120  Calculated  Probabilities  of 
Recording  a  Transition  per  Decay  of  Cs-136  at  0  cm 


Gamma-Ray 

(keV) 

No -Summing 
Method 

Analytical 

Method 

Ratio 

1235 

1.118E-2 

6.907E-3 

0.6178 

1048 

3 . 062E-2 

1.804E-2 

0.5892 

818 

5.384E-2 

3 . 273E-2 

0.6079 

507 

4.051E-2 

2.821E-2 

0.6964 

340 

1.450E-2 

7.499E-3 

0.5172 

320 

3.030E-2 

2.024E-2 

0.6680 

273 

2.132E-3 

1.059E-3 

0.4967 

187 

8.683E-4 

4.356E-4 

0.5017 

176 

5.536E-3 

2 . 518E-3 

0.4548 

166 

3.142E-2 

1.526E-2 

0.4857 

164 

1.958E-3 

7.161E-4 

0.3657 

153 

2 . 636E-3 

1.362E-3 

0.5167 

109 

3 . 008E-5 

1.355E-5 

0.4505 

86 

1.150E-3 

5.731E-4 

0.4983 

67 

1.417E-3 

5.268E-4 

0.3718 
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keV  gamma-ray,  and  the  largest  reduction  is  63%  for  the  164 
keV  gamma-ray.  Overall,  the  importance  of  correcting  for 
summing  events  is  clear  with  these  two  radioisotopes . 


3.4  Error  Analysis  of  Mo-99  Results 

Given  the  results  from  the  analytical  method,  we  now 
need  to  perform  an  error  analysis  and  gauge  some  confidence 
in  the  calculated  probabilities.  Unfortunately,  there  is 
insufficient  error  data  for  the  decay  fractions,  branching 
ratios,  and  internal  conversion  factors  of  Cs-136.  For  Mo- 
99,  there  is  error  data  on  the  intensity  and  internal 
conversion  factors  shown  in  Table  3.1.  However,  we  will  need 
to  make  some  approximations  to  perform  the  error  analysis. 

To  begin,  we  note  the  equations  used  in  calculating  the 
probabilities,  i.e.,  Equations  3-7  through  3-10: 


m 


®i  Pi+  X  ®n5Cni^ 

n=i+l 


'm 


1  +  ani 


-)• 


(3-7) 


Aik  5tik(1  +  aik^  +  j=S]Xij(1+^.)Ajk 


i-1 


y 


(3-8) 


k-1 


Pt 

Ekj 


(3-9) 


^ik  ®i^ik^k  * 


(3-10) 
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Next,  we  apply  Equation  3-22  to  the  above  equations  to 
determine  the  error  propagation  from  the  terms  with  measured 
(x,  y,  and  z)  data  and  the  errors  ( Gx ,  Gy ,  and  Gz )  to  the 

resulting  error  ( Gu )  in  the  probability  (u)  (Knoll,  1989). 


_2  fd Ux2  _2  ,  ,3ik2  _2  ,  ,3ik2 _2  , 

G  =  (-5-)  G  +  (3— )  G  +  (-5- )  G  +... 
u  ox7  x  vov7  v  vdz7  z 


(3-22) 


To  make  the  error  propagation  manageable,  we  perform  the 
differentiation  on  the  top  level  equation  first.  Equation  3- 
10,  and  proceed  down: 


«S=[<f)VB  +  (ff)M  +  <ii)VM]“  and  (3-23) 

GS  =[(AM)2G|  +  (BM)2Gi+(BA)2Gj1]1/2  .  (3-24) 


To  find  the  errors  Gg ,  G^  /  and  Gjyj  ,  we  continue  the 
differentiation  with  respect  to  the  constituent  terms  of 
Equations  3-7  through  3-9: 


(3-26) 


Due  to  the  absence  of  error  data  for  the  decay  fraction 
P  and  the  branch  ratio  %  ,  we  will  make  an  approximation  and 
assume  that  |3  and  a  are  constants  with  no  errors  in  the 
equation  to  determine  the  intensity  of  a  gamma-ray: 


1  = 


Px 

1  +  a  ' 
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p 

<*I 

1  +  a 

ax 

and 


(3-28) 

(3-29) 

(3-30) 

(3-31) 

(3-31) 


In  addition,  to  these  approximations  for  errors,  we  will 
make  an  approximation  for  the  error  in  the  peak  and  total 
efficiencies.  There  is  a  worst  case  error  of  1.5%  in  the 
peak  efficiencies  for  the  sources  at  10  cm  (AFTAC,  1997) . 
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Also,  there  is  rough  estimate  of  3%  in  the  total  efficiency 
at  10  cm  (Canberra,  1995) .  To  propagate  the  error  from  each 
of  the  simple  detector  configurations  into  the  model  one,  we 
invoke  Equation  3-22  with  regard  to  Equation  3-21: 


t  elds3s  9  9  ^psSs^dsBs  9  9  VpsSs  ^  2  u/2 

£  ds5s  =  £ps5s  +  (  (e‘ps3s)2  ’  £ps5s  +  (^)  £ds3sl  ' 


(3-32) 


With  these  Equations  3-24  through  3-32,  we  apply  them 
to  Equations  3-7  through  3-10  for  the  Mo-99  decay  scheme. 
Because  the  error  analysis  equations  are  quite  lengthy,  they 
are  listed  on  pages  96  through  149  in  Appendix  C.  Table  3.7 
shows  the  results  of  the  error  analysis .  For  ease  of 
reading.  Table  3.7  shows  the  errors  in  percent,  i.e.,  the 
error  divided  by  the  mean  value . 
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Table  3.7  Error  of  Calculated  Probabilities  of 
Recording  a  Transition  per  Decay  of  Mo-99  using 

Detector  #120 


Energy  Peak 
(keV) 

%  Error  of  Calculated 
Probability  of 
Recording  a  Transition 
(at  10  cm) 

%  Error  of  Calculated 
Probability  of 
Recording  a  Transition 
(at  0  cm) 

778 

4.621 

7.303 

740 

2.316 

5.540 

411 

1.105 

1.930 

366 

49.29 

38.92 

181 

2.207 

4.848 

142 

10.17 

11.32 

140 

1.778 

5.295 

40 

5.880 

8.024 

It  is  apparent  the  probabilities  for  the  366  and  142 
keV  energy  peaks  suffer  the  most  uncertainty.  However,  the 
errors  for  the  740,  411,  181,  and  140  keV  peaks  seem  to  be 
quite  reasonable.  To  be  able  to  make  a  better  judgment,  we 
turn  to  the  next  chapter  and  compare  the  analytical  results 
against  the  measured  data. 
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4.  AFTAC  Experimental  Data  and  Analysis 


In  this  chapter,  we  compare  the  probabilities  and 
face  peak  efficiencies  from  the  analytical  method  with 
measurement  data  from  AFTAC .  Then  we  look  at  the  values  from 
the  Canberra,  Inc.  coincidence  correction  program.  Lastly, 
we  the  gamma-ray  backscatter  from  the  mounting  materials  of  a 
planchet . 

4.1  Comparison  of  Mo-99  and  Cs-136  Data 

To  begin,  AFTAC  has  provided  measurement  data  as  a 
benchmark  for  the  probabilities  of  recording  transitions 
during  the  decay  of  Mo-99  and  Cs-136  with  Detector  #120. 

This  data  includes  the  probabilities  of  detecting  nuclear 
transitions  and  the  AFTAC  adjust  face  peak  efficiencies  for 
Detector  #120.  However,  AFTAC  has  removed  data  from  its 
analysis  on  several  Mo-99  and  Cs-136  gamma-rays  due  to  the 
difficulty  in  measuring  their  very  low  intensities. 
Nevertheless,  Table  4.1  displays  the  analytical  and  measured 
results  for  the  probabilities  of  Mo-99  nuclear  transitions 
with  the  source  on  the  face  of  the  detector.  The  error  in 
the  experimental  data  is  around  ±2%. 
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Table  4 . 1  Probabilities  of  Detecting  Nuclear 
Transitions  of  Mo-99  Source  at  0  cm 


Energy  Peak 
(keV) 

Analytical 

Method 

AFTAC 

Measurement 

%  Relative 
Difference 

778 

2.467E-3 

2.271E-3 

8.62 

740 

5.210E-3 

5.007E-3 

4.06 

366 

1.334E-3 

1.174E-3 

13.6  | 

181 

9.989E-3 

9.015E-3 

10.8 

Next,  to  see  how  the  AFTAC  adjusted  face  peak 
efficiencies  compare,  we  use  the  ratios  of  the  simplistic 
method  to  the  analytical  one  in  Tables  3 . 5  and  3.6  to  scale 
the  face  peak  efficiencies  from  the  analytical  method. 

Tables  4.2  and  4.3  show  the  significance  of  summing  events 
for  face  measurements  by  altering  the  analytical  efficiencies 
to  nearly  match  several  of  the  AFTAC  adjusted  efficiencies. 

In  reviewing  the  Cs-136  results.  Table  4.3  shows  the 
results  from  the  analytical  method.  The  peak  efficiencies 
for  1048,  86,  and  818  keV  gamma-rays  are  under  2%  relative 
difference  to  the  experimental  ones  (AFTAC,  1997).  The 
analytical  peak  efficiencies  for  the  273  and  1235  keV  gamma- 
rays  are  moderately  off  by  6.6%  and  8.3%.  The  remainder 
deviate  by  13%  to  50%.  Yet,  like  the  case  with  Mo-99,  the 
errors  associated  with  the  other  gamma-rays  are  suspected  of 
compounding  the  error  of  these  few  energy  peaks. 
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Table  4.2  Detector  #120  Adjusted  Face  Peak 
Efficiencies  with  Mo-99  Source 


Energy  Peak 
(keV) 

Adjusted 

Analytical 

Efficiency 

Adjusted  AFTAC 
Efficiency 

%  Relative 
Difference 

778 

0.05779 

0.05356 

7.90 

740 

0.04302 

0.04172 

3.12 

366 

0.1105 

0.09876 

11.9 

181 

0.1601 

0.1493 

7.23 

Next,  we  compare  results  with  the  Canberra,  Inc. 
coincidence  correction  program  which  is  in  development 
(Kolotov  and  others,  1997) .  Again,  the  software  is 
proprietary,  and  the  details  of  the  code  have  not  been 
released.  Therefore,  we  can  not  determine  how  any 
differences  in  results  happen.  However,  Canberra,  Inc.  has 


Table  4.3  Detector  #120  Adjusted  Face  Peak 
Efficiencies  with  Cs-136  Source 


Energy  Peak 
(keV) 

Adjusted  AFIT 
Face  Peak 
Efficiency 

Exp .  Face  Peak 
Efficiency 

%  Relative 
Difference 

1235 

0.02386 

0.02203 

8.307 

1048 

0.02629 

0.02615 

0.5354 

818 

0.03364 

0.03318 

1.386 

340 

0.06107 

0.07467 

-18.21 

273 

0.07226 

0.07740 

-6.641 

176 

0.09214 

0.1878 

-50.94 

163 

0.07729 

0.1326 

-41.71 

153 

0.1129 

0.1424 

-20.72 

86 

0.1102 

0.1115 

-1.166 

66 

0.06245 

0.07185 

-13.08 
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Table  4.4  Detector  #120  Correction  Factor  with 
Mo- 9 9  Source  at  0  cm 


Energy  Peak 
(keV) 

Analytical 

Method 

Correction 

Factor 

Canberra,  Inc. 
Correction 
Factor 

%  Relative 
Difference 

778 

0.999 

1.000 

0.100 

740 

0.712 

0.042 

-94.1 

366 

0.997 

0.992 

-0.502 

181 

0.803 

0.739 

-7.97 

identified  a  problem  in  analyzing  the  40  keV  gamma-ray  that 
is  coincident  with  the  740  keV  one  for  Mo-99.  The  40  keV 
energy  lies  below  the  spectrum  analysis  cut-off  of  60  keV 
which  creates  an  error  in  a  software  module.  Canberra,  Inc. 
is  addressing  the  issue. 

In  reviewing  Table  4.4,  the  Canberra,  Inc.  correction 
factors  for  the  778  and  366  keV  energy  peaks  match  the  values 
of  the  analytical  method.  However,  for  the  740  and  181  keV 
peaks,  the  Canberra  factors  differ  significantly.  Hence, 
there  needs  to  be  further  investigation  of  the  software  to 
determine  the  cause  of  the  discrepancy  considering  the 
results  from  analytical  method  closely  approximate  AFTAC's 
values  for  the  740  and  181  keV  peaks. 


5.2  Planchet  Effect 

The  model  of  the  source  and  detector  has  been  a  thin 
disk  containing  a  uniformly  distributed  radioisotope 
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perfectly  centered  above  and  parallel  to  an  ideal  right- 
cylindrical  detector.  Due  to  the  complication  of  modeling 
gamma-rays  that  backscatter  into  the  detector,  the  copper 
disk  and  PVC  cylinder  have  been  removed  from  the  scenario. 

See  Figure  1.1.  However,  these  materials  are  present  during 
measurements.  They  can  and  do  affect  the  results  of  the 
analytical  method.  The  coincident  gamma-rays  that 
backscatter  from  the  planchet  and  enter  the  detector  cause  a 
summing-out  event.  Other  backscatter  gamma-rays  that  enter 
the  detector  add  to  the  absolute  total  efficiency.  They  do 
not  add  to  the  peak  efficiency  since  they  have  lost  some 
energy  through  scattering. 

To  determine  the  extent  of  not  incorporating  the  full 
planchet,  measurements  were  taken  at  AFIT  of  a  source  with 
and  without  the  copper  and  PVC  materials.  The  source  was  Cs- 
137  which  emits  a  single  gamma-ray  of  662  keV.  Table  E.l  in 
Appendix  E  shows  the  experimental  data.  The  experiment 
showed  a  minor  but  statistically  significant  2  to  3% 
reduction  in  the  peak-to-total  efficiency  ratio. 

This  reduction  would  directly  apply  in  determining  the 
peak  and  total  efficiencies  in  the  present  analytical  method. 
Due  to  the  scope  of  this  thesis,  modeling  and  incorporating 
scattering  effects  are  left  for  a  follow-on  effort.  Such  an 
effort  directly  applies  to  modeling  a  radioisotope  suspended 
in  solution  in  a  vial.  References  in  the  bibliography 
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(Singh,  1983)  and  (Kolotov  and  others,  1997)  provide  the 
starting  point  for  this  investigation. 
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5 .  Conclusions 


In  this  thesis,  we  addressed  AFTAC's  problem  of  showing 
that  coincidence  summing  is  the  cause  of  the  discrepancies  in 
the  initial  activities  when  sources  are  on  the  face  of  the 
detector.  We  developed  an  analytical  method  to  account  for 
the  summing  events  and  obtain  the  true  initial  activity. 

Also,  in  the  process,  we  showed  that  angular  correlation  was 
a  minor  effect  for  a  Mo-99  source  in  a  face  geometry. 

Lastly,  we  looked  at  the  Canberra,  Inc.  program  to  correct 
for  summing  events  with  mixed  results,  however. 

In  particular  for  AFTAC,  the  analytical  method  showed 
that  it  can  duplicate  with  reasonable  accuracy  the  adjusted 
peak  efficiencies  for  the  energy  peaks  of  Mo-99  and  Cs-136 
compared  to  experimental  values.  For  Mo-99,  the  740  keV 
analytical  (adjusted)  face  peak  efficiency  is  only  4%  off 
from  the  experimental  value  while  two  other  analytical  peak 
efficiencies  (the  181  and  778  keV  ones)  are  7%  to  8%  off. 

For  Cs-136,  several  analytical  (adjusted)  peak  efficiencies 
(at  1048,  818,  and  86  keV  )  are  within  1.5%  of  the 
experimental  values . 

The  accuracy  in  the  analytical  results  are  quite 
sensitive  to  the  errors  of  the  associated  gamma - rays .  Large 
errors  in  the  coincident  gamma-ray  intensities  and  internal 
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conversion  coefficients  can  compound  significantly  as  in  the 
case  of  the  366  keV  peak  of  Mo-99. 

As  for  the  analytical  code  in  the  appendix,  it  can  be 
readily  modified  to  produce  count  distributions  or  adjusted 
peak  efficiencies  for  other  radioisotopes  and  detector 
geometries.  The  dimensions  of  the  detector  crystal  can 
quickly  be  substituted  as  well  as  the  factors  in  the 
empirical  formula  describing  the  peak  efficiency  energy 
curve.  Also,  the  source-to-detector  distances  along  the 
major  axis  can  be  modified.  As  for  the  gamma-rays  and  energy 
levels,  they  would  need  to  be  changed  to  model  the  new 
isotope.  The  section  on  determining  angular  correlation  may 
be  deleted  if  the  effect  is  presumed  to  be  minor. 

As  for  restrictions  in  using  the  code,  the  source  must 
be  a  thin  disk  with  a  radius  smaller  than  that  of  the 
detector  face.  The  source  must  be  parallel  to  and  centered 
along  the  major  axis  of  the  detector.  The  code  can  account 
for  attenuation  if  there  are  absorbers  between  the  source  and 
detector.  However,  the  code  does  not  model  the  scattered 
radiation  that  adds  to  the  total  efficiency. 

Unfortunately,  performing  the  error  analysis  will  take 
a  fair  degree  of  effort  for  moderately  to  highly  complex 
decay  schemes.  The  code  will  have  to  be  written  to  account 
for  all  the  errors  of  the  transitions  that  cause  summing-in 
and  -out  effects  for  each  energy  peak.  In  addition,  since 
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many  errors  are  usually  given  for  an  overall  gamma-ray 
intensity,  the  errors  for  the  decay  mode  fraction,  (3 ,  and 
branching  ratio,  X  ,  will  have  to  be  derived.  When 
accomplishing  this  effort  for  a  long  chain  of  cascading 
radiation,  one  will  see  how  the  errors  build. 

In  summary,  the  analytical  method  provides  a  tool  to 
the  user  to  discern  how  much  coincidence  summing  is  affecting 
the  recorded  counts  and  calculated  activity  in  a  measurement. 
An  experimenter  may  place  a  source  as  close  to  the  detector 
as  possible  (keeping  dead  time  and  good  counting  statistics 
in  mind)  and  determine  the  true  activity  in  one  trial . 
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Appendix  A:  Beta  Particle  Range 


The  analytical  method  presented  in  the  text  requires 
that  beta  particles,  emitted  in  coincidence  with  the 
cascading  gamma-rays,  not  to  enter  the  detector  and  cause 
summing  events.  The  method  would  need  modification  to 
account  for  these  extra  summing  events .  The  method  does  not 
account  for  neutron  emitting  sources  as  well. 

In  order  to  use  the  method,  an  analysis  must  be  done  to 
verify  that  beta  particles  and  their  bremsstrahlung  radiation 
will  not  significantly  deposit  their  energy  in  the  detector 
along  with  coincident  gamma - rays .  Since  Mo-99  and  Cs-136  are 
the  model  radioisotopes,  an  analysis  is  performed  on  both 
below: 

The  range  of  a  in  low  Z  materials  can  be  found  by 
using  Equation  A-l  (Turner,  1995) .  The  maximum  energy  of  the 

|3~  emitted  by  Mo-99  is  444.6  keV  and  by  Cs-136  is  218.7  keV 
( ICRP,  1983): 


R(— %r)  =  0.412T^1,27  °-9451nT)  o.Ol  MeV  <  T(MeV)  <2.5  MeV;  (A-l) 
cin 


(-^y)  =  0.4 1 2(0.4426) ^ 1,27  0-9451n(0.4426))  =  007810_S_  .  (A-2 ) 

Mo  99  cm 1  cnr 
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maxP 

Cs-136 


(— r-)  =  0.412(0.2187) 
cur 


(1.27  -0.9451n(0.2187)) 


=  0.006733 


g 


cm 


(A- 3 ) 


The  ranges  are  multiplied  by  the  density  of  the 
absorbing  material,  aluminum,  2.70  g/cm2  (Turner,  1995): 


max  (3 
Mo -99 


(cm)  = 


max  (3  ,  S  , 

Mo  —  99  cm2  _ 


Pai 


0.07810-^- 

- Qm—  =  0.02893cm  ,  and 

2.70^5 

cm 


(A-4 ) 


maxP 

Cs-136 


(cm)  = 


max  (3  ,  S  . 

Cs-136(cm2; 


Pai 


0.006733-^ 

- enL-  =  0.002494cm  . 

2.70^3 

cm 


(A-5) 


With  the  aluminum  end  cap  of  Detector  #120  being  0.16 

cm  thick,  neither  [3~  will  penetrate  and  enter  the  detector. 
The  next  task  is  to  determine  if  the  bremsstrahlung 

radiation  created  by  the  P~  has  enough  energy  to  cause  a 
summing  event  with  cascading  gamma - rays .  Equation  A-6  is  an 

empirical  formula  to  calculate  the  fraction  of  the  (3~  energy 
that  is  converted  to  bremsstrahlung  radiation.  Z  is  the 
number  of  protons  in  the  nucleus  of  the  absorbing  material 

atom,  and  T  is  the  kinetic  energy  of  the  p-  in  MeV: 
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Y  = 


6x10~4ZT 
1  +  6x10~4ZT 


;  thus  we  obtain 


(A- 6) 


A!  6  x  1 0~  4  ( 1 3)(0.4426) 

M°-"  1  +  6x10"  4  (13)(0.4426) 


=  0.003440  , 


(A-7) 


VA1 

Cs-136 


6x  10~4(13)(0.2187) 

1 +  6  xlO"4  (13)(0.2 187) 


=  0.001703 , 


(A-8) 


pbrem 
Mo -99 


=  Y^o  _  99T  =  (0.003440)(442.6keV)  =  152keV  , 


and 


(A-9) 


pbrem 

Cs-136 


=  Y ™  =  (0.00 1 703)(2 1 8.7 ke Y)  =  0.372keV  . 

L.S— lot) 


(A-10 ) 


The  bremsstrahlung  x-rays  of  1.52  and  0.372  keV  will  not 
create  separate  sum  peaks  due  to  the  1  to  2  keV  resolution  of 
the  detector.  These  x-rays  are  likely  to  broaden  or  distort 
the  existing  full  energy  peaks.  Thus,  the  analytical  method 
is  applicable  for  these  radioisotopes  and  the  given  detector. 


78 


Appendix  B:  Angular  Correlation  Formula 

In  Chapter  2.2,  we  claim  the  first-principles 
expression.  Equation  2-2,  to  calculate  the  normalized  angular 
correlation  factor, W  ,  is  equivalent  to  Camp  and  Van  Lehn's 
formula,  Equations  2-8  through  2-11.  In  this  appendix,  we 
show  some  of  the  key  steps  in  converting  Equation  2-2  to  the 
form  of  Equations  2-8  through  2-11. 

First,  we  present  Equation  2-2  noting  the  definition  of 
the  angles  in  Figure  2.3.: 


JJe(Qa)e(cyw(fta,ab) 


d£2  dQu 
_ a _ b 

4ft  47t 


JJE(£2a)e(fib) 


d£l  dQ, 
_ a _ b 

4ft  4ft 


(B-l ) 


Then  we  substitute  the  coordinate  components  of  Qa  and 

Qb ,  i.e.,  a  and  co .  We  will  only  consider  the  probability 

of  interaction  of  the  gamma-rays  with  the  germanium  crystal 
ignoring  the  aluminum  end  cap  and  lithium  contact: 


_  JJJ  {1  -  Exp[fa] }  {1  -  Exp[fb  ] }  W  (cos  0)  sin  abdab  sinaadaa 

JJ  {1  -  Exp[fa  ] }  {1  -  Exp[fb] }  sinabdab  sinaadaa 


(B-l) 


79 


where 


fy  = -x(cosay)Z(Ey)  and  (B-3) 

W(cos0)  =  1  +  A2P2(cos0)  +  A^jP^Xcos©)  where  (B-4) 

cos0  =  cosaacosab  +sinaasina|:)cosAa>  ,  (B-5) 

P2(cos0)  =  ^-(3cos20-1),  and  (B-6) 

P4(cos0)  =  ^(35cos^0-3Ocos20  +  3).  (B-7) 


To  begin  the  conversion,  the  integrals  in  Equation  B-l 
are  separated  into  three  parts  with  each  containing  one  of 
the  terms  of  Equation  B-4,  the  correlation  function.  Also, 
for  efficiency,  we  use  the  ^y  =  cosay  transformation: 

_  JJJ  {1-Exp[fa3){l  —  Expl  fb  ] }  ( 1)  d^bd^a 

W  =  + 

Jj  {1-Exptfa]}(l-Exp[fb])d4bd4a 

JjJ(l-Exp[fa]}(l-Exp[fb])(A2P2(4a.4b.Am))^d4bd|a 

J/(1-Exp[fa]|{l-Exp[fb]ld4bd4a  +  B“ 

J|J{l-Exp[fa]){l-Explfb])(A4P4(4a,4b,A(0))^d4bd|a 

J|  (1  -  Exp[fa]  ){1  -  Exp[fb]  |d^bd5a 

Then  we  continue  with  expanding  the  terms  in  the 
correlation  function: 
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_  (2tc  —  0)^  JJ  {!  —  Exp[fa])  {1— Explfb]}d£.bdga 
j|{l-Exp[fa]((l-Exp{fb])dqbd^a  + 

JJJ|l-Exp[fa])|i-Exrifb]}(P2(^a,4b,Am))^fd|bd4a 
2  |J(l-Exp[fa]){l-Exptfb]}d4bd^a 

JJJ  (!-Exp[fa1}(l-Exp[fb3)(P4(ga,£.b,At0))j^^d4bd4a 

4  JJ{l-Exp[fa]}(l-Exp[fb]}d4bd4a 

and  Equation  B-10 
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W  =  l  + 


III! 

JJJo- 


Exp[fa](l-Exp[fb])[|^}^d^bd^a 
J'|{l-Exp[fa](l-Exp[fb])d|bd5a  + 

Exp[fa]{l-Exp[fb]}{^a^bcos^  Att,(1-4a)(1-4b))^^d|bd4a 


||  {1  -  Exp[fa]{l  -  Exp[fb]  )d^bd^a 


|||(l-Exp[fa]{l-: 


1  -i  dAco  jk  if 
2s  2%  d^bd^a 


III! 

III! 

III! 

III! 

III! 

III! 

III! 

JJJu- 


||(1  -  Exp[fa]  (1  -  Exp{fb]|d^bd|a 

Expt^Hl-Exrifbmf^b  +  ll^d^a  | 

||  {1  -  Exp[fa]{l  -  Exp[fb]  }d§bd^a 

Exp[fa]|l-Exp[fb])|^cos4A(0(l-^)2(l-^)2)^d^a 
||  {1  -  Exp[fa](l  -  Exp[fb]  }dgbd^a 

Exp^Kl-ExplfblH^^cosAm^g-^Xi-ggn^d^d^ 

||{l-Exp[fa]{l-Exp[fb])d4bd5a 

Exri^Ki-ExrifbjH^^^AcXl-^Xl-^M^d^d^ 

||{l-Exp[fa]{l-Exp{fb]}d4bd|a  + 

3  3 

Exp[fa]{l-Exp[fb]}[^^a^bcos3A(Q(l-^a)2(l-^b)2}^^d^bd^ 
||  {1  -Exp[fa](l-  Exp[fb])d4bd4a 
Exp[fa](i-Exp[fb])(f^)^d^a 
||  {1  -  Exp{fa](l-  Exp[fb]}d4bd^a 

Exp[faJ{l-ExpCfb]){^cos2A»(l-^Xl-^b)}^d^bd|a 


||  {1-  Exp[fa  ]  { 1  -  Exp[fb]|dtbd! 


Exp[faJ  (1  -  Exp[fb] }  cosAo^l  -  42Xi  -  4b) ) 


||(l-Exp[fa]jl-Exp[fb]}d4bd|a 
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Now,  we  enter  the  integrals  below  into  Equation  B-10: 


2k 


dAco 


JcosAco^  =  0, 

Tcos2A<o^  =  j, 

o  2,1  2 

2n 

f  cos^Aco-^-^  =  0,and 
0 

Tcos4A»^  =  |. 

0  2n  8 


(B-ll ) 


The  result  is  Equation  B-12: 


W  =  l  + 

A  fj|{l-Exp[fa]|l-Exp[fb]}j||^-i^-^b-|-6l^d^a  | 

2  J/  {1  -  Exp[fa](l- Exp[fb])d^bd£.a  + 

A  JJJ  { I  -  Exp[fa  ]  |1  -  Exp[fb  ] } f  + 1 ( 1  -  2%l  +  $  -  2% )}  ■ d5bdi;a  ^ 

4  JJ{l-Exp[fa]{l-Exp[fb])d|bd|a  + 

A  JJJ|I-Exp[fa]|i-Exp[fb]}f{|(4^g-242^+^)>^d4bd|a  t 

4  JJ{l-Exptfa]{l-Exp[fb])d5bd|a 

A  JJJ |l-Exp[fa](l-Exp[fb])f  {|(-2^  +^b»^^bd4a  | 

4  JJ{l-Exp[fa)U-Exp(fb])d4bd4a 

JJJ|l-Exp[fa]|i-Exp[fb]}f{3(^-^-^+^))^d^a 

4  JJ{l-Exp[fa](l-Exp[fb]}d4bdf;a 

A  JJJ |l-Exp[fa]|l-Exp[fb]}f  [i&l  +  -%l  +  424g)}^d^a  | 

4  JJ{l-Exp[fa]{l-Exp[fb])d4bd5a  + 

JJJ  jl  -Exp[fa](l  -  Exp[fb])  (|)^d4bd4a 
4  JJ(l-Exptfa]{l-Exp[fb](d4bd4a 


83 


Next,  the  integrals  are  separated  and  solved  for  and 
£b  assuming  and  ^b  are  independent: 


W  =  1  + 

J  l^a  -  l)W-Exp[fa])dl;aJ  ||(3^  -I))|l-Exp[fb]}d4b 
2  J{l-Exp[fa])d!;J{l-Exp[fb])dSb  + 

4  J(l-Exp[fa])d$J{l-Exp[fb])d!;b 


(B-13) 


We  recognize  the  form  of  the  %a  and  ^  functions  as 
Legendre  polynomials  of  orders  2  and  4 : 


W  =  l  + 

2  J{l-Exp[fa]}d^aJ{l-Exp[fb]}d^b 

J{P4(^a)Hl-ExP[fa1}dy{p4^b)H1-ExP[fb]^b 

4  J{l-Exp[fa]}d^a|{l-Exp[fb]}d^b 


Finally,  we  see  that  the  integrals  are  functions  of  the 
Legendre  polynomial  and  the  probability  of  interaction  for 
one  gamma-ray  which  matches  the  J  function  of  Camp  and  Van 
Lehn  (1969),  Equation  2-11: 
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(B-15 ) 


W  =  1+  ,  J2(Ya>J2(Yb)  +  A/<  WW 
2j0(Ya)Wb)  4j0(Ya)J0(Yb) 


Then,  using  the  nomenclature  of  their  formula,  Equations 
2-8  through  2-10,  we  obtain  the  desired  form: 


W  =  1  +  A2Q2  A4Q4  and  (B— 16) 

W  =  1  +  A2XP+A4XP  .  (B-17 ) 
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Appendix  C:  Analytical  Method  Code  for  Mo-99 

Off  [General:  sspelll] 

AFTAC  Canberra  Detector  120  peak  efficiency  was  characterized  using  a  NIST 
source  10  cm  above  the  detector.  This  distance  is  large  enough  to  ensure 
that  the  solid  angle  subtended  makes  the  contribution  from  correlated 
cascading  gammas  negligible  by  a  factor  of  Q  shown  below. 

The  following  are  the  dimensions  for  a  Mo-99  disk  source  and  Det#120  to 
calculate  the  solid  angle  subtended.  The  reference  is  Equation  8.10,  pg. 

254 ,  in  (Tsoulfanidis,  1983). 

Mo-99  disk  source  radius  in  cm.  The  precipitate  area  on  the  planchet  is  as 
follows : 

1.667  cm2  for  Y,  Ce,  Nd,  Sm,  Eu,  Tb 
3.125  cm2  for  Sr,  Zr,  Mo,  Ag,  Cd,  Cs,  Ba 
2.3  81  cm2  for  U,  Np 


Rsource : 


3.125 


V  * 

Det#120  crystal  radius  minus  the  Li  contact  in  cm: 

Lidepth  =  0.05; 

Rcrystal  =6.0/2  -  Lidepth; 

The  thickness  of  the  Al  end  cap  in  cm: 


Aldepth  =  0.16; 

The  spacing  between  the  end  cap  and  lithium  contact  in  cm: 

gap  =0.5; 

Source  to  detector  distance  in  cm: 

sourceheight  =9.7; 

souxceheight  +  Aldepth  +  gap  +  Lidepth 
z  =  —  ; 

Rsource 


s  =  Rcrystal  /  Rsource, 
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Qfar  = 


.  BesselJ[l,  p]  i 

s  *NIntegrate  [Exp  [ -p  *  z]  *  Bessel J[l#  (p*s)]* - - #  {p,  0,  10}  j 


0.0188295 


Thus,  summing  contributions  are  about  two  percent  of  the  total  counts  of  the 
correlated  energy  peaks . 

The  following  are  the  efficiency  function  coefficients  for  Detector  120  with 
the  disk  source  at  10cm.  The  efficiency  is  calibrated  only  between  0.059 
and  1.836  MeV.  Thus,  the  peak  efficiency  for  the  0.0405845  MeV  gamma  is 
suspect  to  large  error.  The  error  in  the  peak  efficiencies  for  the 
calibrated  range  is  no  larger  than  1.5%  as  Capt  Weimer,  AFTAC/TOD,  stated  on 
25  Jul  97. 


cl = -5.927; 
c2 = -0.8438; 
c3  =  -0.02031; 
c4  =  -  .00007080; 
c5 =  .02496; 
c6  =  .01560; 

The  following  is  the  peak  efficiency  function  with  the  disk  source  at  10  cm. 

epds5sfar[e_]  =  Exp  [cl  +  c2  *  Log[e]  +  c3  *  (Log[e] )  A2  +  c4  *  (Log[e] )  A3  + 
c5*  (Log[e] )  A4  +  c6*  (Log[e] )  A5]  ; 
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Plot [epdsSsfar  [e]  ,  {e,  .02,  2.}, 

PlotRange  ->  All,  Frame  ->  True,  GridLines  ->  Automatic,  PlotLabel  -> 
"Det#120  Absolute  Peak  Efficiency  with  Disk  Source  10cm  Above", 
FrameLabel  ->  {"Energy  (MeV)  ",  "e  peak"}] 


Det#120Absolut^)eakEf  f  iciencyithDiskSourcelOcm  Above 


The  following  are  the  Mo-99  gamma  energies  of  interest  with  their 
corresponding  peak  efficiencies. 

Mo99gammas =  { .777921,  .739500,  .411491,  .366421,  .181068, 

.142675,  .140511,  .0405845}; 

£pds5sfarlist  =  Table  [epdsSsfar  [Mb99gammas[  [i]  ]] ,  {i,  1,  8}]; 

The  row  and  column  numbers  of  the  matrix  element  represent  the  transition 
from  level  i  to  k. 
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epf ar  =  {{0,  0,  0,  0,  0,  0), 

{ epds5sf arlist [  [7]  ]  ,  0,  0,  0,  0,  0},  { epds5sf arlist [  [6]  ]  ,  0,  0,  0,  0,  0}, 
{ epds5sf arlist [ [5] ] ,  epds5sfarlist [ [8]  ] ,  0,  0,  0,  0}, 

{0,  0,  £pds5sf arlist  [  [4]  ] ,  0,  0,  0}, 

{0,  0,  epds5sf arlist [ [1] ] ,  epds5sf arlist [ [2] ] ,  epds5sfarlist [ [3] ] ,  0}}; 

The  density  (g/cm3)  at  300K  is  assumed  to  be  similar  to  actual  conditions 
of  77K  for  Ge  and  Li.  The  reference  is  (Turner,  1995). 

Gedensity =  5.32; 

Al  density =  2.70; 

Lidensity  = 0.53; 

The  atomic  weight  is  in  atoms  per  gram.  The  reference  is  (Turner,  1995) . 

6.022  *1023 

Geatcmicweight  =  - ; 

72.59 

Geatomden  =  Gedensity*  Geatamicweight; 

6.022*  1023 

Alatamicweight  =  - ; 

26.98154 

Alatomden  =  Al  density  *  Alatamicweight; 

6.022  *1023 

Liatomicweight  =  - ; 

6.941 

Liatomden  =  Lidensity*  Liatomicweight; 

The  following  is  a  table  of  the  compton  scattering,  photoelectric,  and  pair 
production  cross  sections  in  Ge,  Al ,  and  Li  which  will  be  turned  into  an 
interpolation  function  for  use  in  computing  total  efficiencies.  The 
reference  is  the  Brookhaven  National  Laboratory  website  at  TELNET 
bnlnd2.dne.bnl.gov,  23  Jul  1997.  The  gamma  energies  are  in  MeV  and  the 
cross  sections  in  cm2 . 
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Gedata  =  Table[{{  .02,  (12.38  +  4996.)  *  10'24  *  Geatomden} , 

{.03,  (14.00  + 1610.)  *10‘24* Geatomden}, 

{.04,  (14.75  +  704.5)  *  10‘24  *  Geatomden}  , 

{.05,  (15.05  +  367.0)  *  10’24  *  Geatomden}, 

{.06,  (15.12  +  214.0)  *  10-24  *  Geatomden}  , 

{.08,  (14.94  +  90.61)*  10~24  *  Geatomden}  , 

{.10,  (14.59  +  46.24)  *  10'24  *  Geatomden} , 

{.15,  (13.57  +  13.56)  *  10‘24  *  Geatomden}  , 

{.20,  (12.63  +  5.706)  *  10‘24  *  Geatomden}, 

{.30,  (11.13  +  1.733)  *  10'24  *  Geatomden}  , 

{.40,  (10.03  +  .7731)  *  10~24  *  Geatomden}, 

{.50,  (9.188  +  .4270)  *  10'24  *  Geatomden}, 

{.60,  (8.516+  .2699)  *  10-24  *  Geatomden} , 

{.80,  (7.497+  .1379)  *  10‘24  *  Geatomden}, 

{1.0,  (6.747+  .08585)  *  10’24  *  Geatomden} , 

{1.022,  (6.676+  .08158)  *  10'24  *  Geatomden} , 

{1.25,  (6.038+  .05512  +  .  01073)  *  10-24  *  Geatomden}  , 

{1.5,  (5.490+  .03968+  .05320)  *  10‘24  *  Geatomden}  , 

{2.0,  (4.687+  .02437+  .1971)  *  10'24  *  Geatomden}  , 

{2.044,  (4.629+  .02353+  .2116)  *  10‘24  *  Geatomden}  , 

{3.0,  (3.689+  .01314+  .5378)  *  10'24  *  Geatomden}  }]  ; 

ZGe =  interpolation [Gedata] ; 

The  macroscopic  cross  sections  (in  1/cm)  of  Ge  for  the  Mo-99  gamma  energies 
are  below: 

ZGelist  =  Table [EGe[Mo99gammas[  [i]  ]]  ,  {i,  1,  8}]; 


2Gem=  {{0,  0,  0,  0,  0,  0}, 

{ZGelist [  [7]  ]  ,  0,  0,  0,  0,  0},  {SGelist [  [6]  ]  ,  0,  0,  0,  0,  0}, 

{ZGelist  [  [5]  ] ,  ZGelist [  [8]  ]  ,  0,  0,  0,  0},  {0,  0,  ZGelist  [  [4]  ]  ,  0,  0,  0}, 
{0,  0,  ZGelist [ [1] ] ,  ZGelist [ [2]] ,  ZGelist [ [3] ] ,  0}}; 
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Aldata  =  Table [{{.02,  (6.142  +  138.9)  *  10'24  *  Alatamden} , 

{.03,  (6.561  +  39.08)  *  10'24  *  Alatamden}  , 

{.04,  (6.695  + 15.70)  *10'24* Alatamden}, 

{.05,  (6.702  +  7.696)  *10’24* Alatamden}, 

{.06,  (6.645  +  4. 285)  *  10~24  *  Alatamden}  , 

{.08,  (6.447  +  1.695)  *  10‘24  *  Alatamden} , 

{.10,  (6.218+  .8254)  *  10‘24  *  Alatamden} , 

{.15,  (5.678+  .2237)  *  10‘24  *  Alatamden}, 

{.20,  (5.233+  .08970)  *  10‘24  *  Alatamden}  , 

{.30,  (4.573+  .02573)  *  10'24  *  Alatamden}  , 

{.40,  (4.105+  .01111)  *  10-24  *  Alatamden}  , 

{.50,  (3.752+  .006021)  *  10‘24  *  Alatamden} , 

{.60,  (3.474+  .003764)  *  10‘24  *  Alatamden} , 

{ .  80,  (3 . 053  +  .  001905)  *  10‘24  *  Alatamden} , 

{1.0,  (2.746+  .001184)  *  10'24  *  Alatamden} , 

{1.022,  (2.717+  .001115)  *  10‘24  *  Alatamden}  , 

{1.25,  (2.456+ .0007562  +  .001404)  *  10’24  *  Alatamden} , 

{1.5,  (2.232+  .0005476+  .007652)  *  10-24  *  Alatamden} , 

{2.0,  (1.905+  .0003420+  .03023)  *  10'24  *  Alatamden}  , 

{2.044,  (1.882+  .0003307+  .03258)  *  10'24  *  Alatamden} , 

{3.0,  (1.499+  .00031892+  .08595)  *  10’24  *  Alatamden}  }]  ; 

SAl  =  Interpolation  [Aldata]  ; 

The  macroscopic  cross  sections  (in  1/cm)  of  A1  for  the  Mo-99  gamma  energies 
are  below: 

SAllist  =  Table [SAl[Mo99gainmas[  [i]  ]]  ,  {i,  1,  8}]; 

SAlm  =  {{0,  0,  0,  0,  0,  0}, 

{SAllist  [  [7]  ]  ,  0,  0,  0,  0,  0},  {SAllist [  [6]  ]  ,  0,  0,  0,  0,  0}, 

{SAllist  [  [5]  ] ,  SAllist [  [8]  ] ,  0,  0,  0,  0},  {0,  0,  SAllist  [  [4]  ]  ,  0,  0,  0}, 
{0,  0,  SAllist [ [1] ] ,  SAllist [ [2]] ,  SAllist [[3]],  0}}; 
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Lidata  =  Table [{{.02,  (1.702+  .1516)  *  10"24  * Liatomden} , 

{ .  03,  (1.718  +  .  03841)  *  10‘24  *  Liatomden} , 

{.04,  (1.692+  .01445)  *  10‘24  *  Liatomden} , 

{.05,  (1.656+  .006770)  *  10'24  *  Liatomden}  , 

{.06,  (1.617+  .003645)  *  10'24  *  Liatomden}  , 

{.08,  (1.540+  .001373)  *  10'24  *  Liatomden} , 

{.10,  (1.471  +  .0006464)  *  10*24  *  Liatomden}  , 

{ .  15,  (1.328  +  .  0001666)  *  10'24  *  Liatomden}  , 

{.20,  (1.218+  .00006481)  *  10"24  *  Liatomden}  , 

{.30,  (1.060+  .00001796)  *  10"24  *  Liatomden}  , 

{.40,  (.9499  + 7.615*  10‘6)  *  10‘24  *  Liatomden}  , 

{.50,  (.8676  +  4.081*  10"®)  *  10'24  *  Liatomden}  , 

{.60,  (.8027  +  2.533*10'®)  *  10'24  *  Liatomden}  , 

{.80,  (.7053  + 1. 276*10-®)  *  10'24  *  Liatomden}  , 

{1.0,  (.6341+ 7.939  *10'7)  *  10'24  *  Liatomden}  , 

{1.022,  (.6274+ 7.038  *10-7)  *  10'24  *  Liatomden}  , 

{1.25,  ( .5670  +  4.788  *  10'7  +  7.052*  10'5)  *  10'24  *  Liatomden}, 

{1.5,  (  .5154  + 3.486*  10"7  +  .0003953)  *  10'24  *  Liatomden}  , 

{2.0,  (.4398  + 2.212*  10-7  +  .001583)  *  10'24  *  Liatomden} , 

{2.044,  (.4344  +  2.141*10-7  +  .001707)  *  10‘24  *  Liatomden} , 

{3.0,  (.3460  + 1.250*  10'7  +  .004545)  *  10'24  *  Liatomden}  }]  ; 

2  Li  =  interpolation  [Lidata]  ; 

The  macroscopic  cross  sections  (in  1/cm)  of  Li  for  the  Mo- 9 9  gamma  energies 
are  below: 

2Lilist  ss  Table [2Li  [Mo99gammas [  [i]  ]]  ,  {i,  1,  8}]; 


ZLim  =  {{0,  0,  0,  0,  0/  0}# 

{ZLilist [  [7]  ]  #  0,  0 ,  0,  0,  0},  {ZLilist [  [6]  ] ,  0#  0#  0,  0,  0}, 

{ZLilist  [  [5]  ]  ,  ZLilist  [  [8]  ]  ,  0,  0,  0,  0}  ,  {0,  0,  ZLilist  [  [4]  ]  ,  0,  0 ,  0}# 
{ 0 ,  0,  ZLilist [ [1] ] #  ZLilist [ [2] ] ,  ZLilist [ [3] ] ,  0}}; 


To  review  and  compare  the  macroscopic  cross  sections  of  the  elements 
involved: 
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TableForm[ Table [  (Mo99gairmas  [  [i]  ]  ,  SGelist [  [i]  ] , 

ZAllist [ [i]  ]  ,  ZLilist  [  [i]  ] } ,  {i,  1,  8}  ]  ,  TableHeadings  -> 
{Nbne,  {"M©vn,  "ZGe  (1/cm)  ",  "ZAl  (l/cm)n,  "SLi  (1/cm)"}}, 
TableAlignments  ->  Center] 


Mev 

SGe  (1/cm) 

ZA1  (1/cm) 

ZLi  (1/cm) 

0.777921 

0.342247 

0.186625 

0.03287 

0.7395 

0.351296 

0.19112 

0.0336536 

0.411491 

0.469232 

0.245234 

0.0431885 

0.366421 

0.497454 

0.256621 

0.0451909 

0.181068 

1.13086 

0.338259 

0.0577854 

0.142675 

1.83996 

0.378773 

0.0619439 

0.140511 

1.97079 

0.383828 

0.0622062 

0.0405845 

30.3487 

1.30237 

0.078344 

To  better  simulate  the  response  of  the  detector,  the  A1  end  cap  and  Li 
contact  will  be  included  to  account  for  their  attenuation. 

The  path  length  of  a  gamma  through  the  end  cap  and  contact  in  cm.  Since  the 
end  cap  and  contact  extend  beyond  the  crystal,  there  are  no  vertical  edges 
affecting  the  path  length  for  this  simplified  approach. 

xAl[£_]  =  Aldepth  /  f; 

xLi  [f_]  =  Li  depth  /  f ; 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the  five¬ 
sided  detector  crystal  with  a  point  source.  The  references  are  (Camp  and 
Van  Lehn,  1969),  pg.  237-238,  (McCallum  and  Coot e,  1975),  pg.  192,  and 
(Heath,  1964),  pg.  21. 

The  radial  depth  of  the  five-sided  crystal  in  cm: 

Rdd  =  (6.0  -  0.8  -2*Lidepth)  /2; 

The  axial  depth  of  the  five  sided  crystal  in  cm: 

Add  =  5.1  -  3.65  -  Li  depth; 

The  crystal  length  in  cm: 

Lcrystal  =  5.1-  Lidepth; 

The  limits  of  integration  for  the  five-sided  cylinder: 

Array  [Aps5s£ar,  4]  ; 


Array  [Bps 5s far,  4] 
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Array  [3<ps5s£ar,  4]  ; 

Bps5sfar[4]  =Cos[0]; 

Aps5sfar[4]  =  Cos [ArcTan[ 

(Rcrystal  -  Rdd)  /  ( sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps5sfar[4]  [f_]  =  Add  /  f; 

Bps5sfar[3]  = Aps5sfar [4] ; 

Aps5s£ar[3]  =  Cos [ 

ArcTan[  (Rcrystal  -  Rdd)  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add)  ]  ]  ; 


xps5sfar[3] [£_]  = 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal  +  Add)  /  f  - 
(Rcrystal  -  Rdd)  /  Vl  -  C2  ; 

Bps5s£ar[2]  =  Aps5sfar[3] ; 


Aps5sfar[2]  = 

Cos  [ArcTan [Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps5sfar [2] [£_]  = Lcrystal /f; 

Bps5s£ar[l]  = Aps5sfar [2] ; 

Aps5s£ar[l]  = 

Cos  [ArcTan [Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 
xps5sfar[l] [f_]  = 

Rcrystal /  V 1  -  f 2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  £; 

1  ^ 

etps5s£ar[e_]  :  =  —  *  T* NIntegrate [  ( 1  -  Exp[-2Ge[e]  * xps5sfar[i]  [f]])  * 

Exp[-ZA1  [e]  *xAl[f]  -  SLi [e]  *aeLi[£]], 

(f,  Aps5s£ar[i],  Bps5sfar[i] }  ] 

The  total  efficiency  for  the  five-sided  cylinder  with  a  point  source  10  cm 
above  for  the  Mo-99  gamma  energies: 


£tps5sfarlist  =  Table [etps5sfar [M099gammas[  [n]  ]] ,  {n,  1,  8}]; 
etps5sfarm=  {{0,  0,  0,  0,  0,  0} , 

{ £ tps5sf arlist  [  [7]  ]  ,  0,  0,  0,  0 ,  0),  { £tps5sf arlist  [  [6]  ] ,  0,  0,  0,  0,  0), 
(etps5sfarlist[ [5]  ]  ,  etps5sfarlist [ [8]  ]  ,  0,  0,  0,  0}, 

{0,  0,  £tps5sf arlist [  [4]  ] ,  0,  0,  0), 

{0,  0,  etps5sf arlist [ [1] ] ,  etps5s£arlist [ [2]  ] ,  etpsSsfarlist [ [3]  ] ,  0}); 
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The  following  is  the  equation  to  compute  the  total  efficiency  of  the  solid 
cylindrical  detector  crystal  with  a  point  source  10cm  above.  The  references 

is  (Heath,  1964),  pg.  21. 

The  limits  of  integration  for  the  solid  cylinder  with  a  point  source: 


Array[Aps3sfar,  2]  ; 
Array [Bps3sfar,  2] ; 
Array [xps3sfar,  2]; 
Bps3sfar [2]  =  1; 


Aps3sfar[2]  = 

Cos  [ArcTan[Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps3sfar[2]  [f_]  =  Lcrystal/ f; 

Bps3sfar [1]  = Aps3sfar [2] ; 

Aps3sfar[l]  = 

Cos  [ArcTan[Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 
xps3sfar [1] [f_]  = 

Rcrystal /  V 1  -  £2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  £; 

1  2 

ctps3sfar[e_]  :=  —  *  ^ Nlnt egrate [  ( 1  -  Exp[-2Ge[e]  *xps3sfar[i]  [f]])  * 

Exp[-EAl  [e]  *xAl[f]  -  ELi[e]  *xLi[f]  ] , 

{€,  Aps3sfar[i]  ,  Bps3sfar[i]  }]  ; 

etps3sfarlist  =  Table [etps3sfar [M699gammas[  [n]  ]] ,  (n,  1,  8}]; 


etps3sfarm  =  {{0,  0,  0,  0,  0,  0}, 

(etps3sfarlist  [  [7]  ] ,  0,  0,  0,  0,  0},  { etps3sfarlist [  [6]  ]  ,  0,  0,  0,  0,  0}, 
(etps3sfarlist [ [5]  ] ,  etps3sfarlist [ [8]  ] ,  0,  0,  0,  0}, 

(0,  0,  etps3sfarlist[  [4]  ]  ,  0,  0,  0}, 

(0,  0,  £tps3sfarlist [ [1] ] ,  £tps3sfarlist [ [2] ] ,  etps3sfarlist [ [3] ] ,  0}}; 


To  perform  a  quick  check  on  the  total  efficiencies  of  the  five  sided 
cylinder,  the  efficiency  contribution  from  the  core  will  be  subtracted  from 
the  efficiency  of  the  solid  three-sided  cylinder  computed  above. 


The  limits  of  integration  for  the  core  cylinder  with  a  point  source: 


Rcore  =  .8/2; 

sourcecore  =  sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add; 
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coredepth  =  3.65; 

Array [Aps3score,  2] ; 

Array [Bps 3 score,  2]  ; 

Array [xps 3 score,  2]  ; 

Bps3score[2]  =  1; 

Aps3score[2]  =  Cos [ArcTan[Rcore  /  (sourcecore  +  coredepth)  ]  ]  ; 
xps3score[2]  [£_]  =  coredepth  /  f ; 

Bps3score[l]  =  Aps3score[2] ; 

Aps3score  [  1]  =  Cos  [ ArcTan[Rcore  /  sourcecore]  ]  ; 
xps3score[l]  [f_]  =  (Rcore /  V 1  -  f 2  )  -  (  sourcecore  /  f )  ; 

etps3scorefar [e_]  s= 

1  Vi 

—  *  >  NTntegrate [  (1  -  Exp[-£Ge[e]  * xps3 score [i]  [?]  ] )  * 

2  ti 

Exp[-ZAl[e]  *xAl[f]  -  2Li [e]  *xLi[f]  -  (2Ge[e]  *Add/?)], 

(f,  Aps3score[i]  ,  Bps3score[i]  }]  ; 

etps3scorefarlist  =  Table[etps3scorefar[Mo99gammas[  [n]  ]  ] ,  {n,  1,  8}]; 

Now,  we  compare  the  total  efficiency  between  the  five-sided  cyclinder  and 
the  reduced  efficiency  of  the  three-sided  cylinder.  The  table  shows  the 
contribution  of  Zone  2  of  the  five-sided  crystal  letting  gamma  rays  re-enter 
whereas  the  three-sided  crystal  removing  all  gamma  rays  that  enter  the  core. 


TableFora[Table[{M&99ganmas[  [i]  ]  ,  etps5sfarlist  [  [i]  ] , 

(stps3sfarlist[ [i] ]  -  etps3scorefarlist [ [i] ] ) } ,  {i,  1,  8}], 
TableHeadings  -> 

{None,  {"Mev",  "5s  Total  Eff.%  "Delta  3s  Total  Eff."}}, 
TableAlignments  ->  Center] 


Mev 

5s  Total  Eff. 

Delta  3s  Total  Eff 

0.777921 

0.0114423 

0.0114321 

0.7395 

0.0115715 

0.011561 

0.411491 

0.0128898 

0.0128767 

0.366421 

0.0131267 

0.0131132 

0.181068 

0.0155308 

0.0155185 

0.142675 

0.0162487 

0.0162428 

0.140511 

0.016326 

0.016321 

0.0405845 

0.0151698 

0.0151698 
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TableFoxm[Table[{MD99gainnas[  [i]  ] ,  etps3s£arlist  [  [i]  ] , 
etps3score£arlist[ [i]  ]  >,  {i,  1,  8}],  TableHeadings -> 


{None,  {"Mev", 

"3s  Total  Eff. ",  "3s 

Core  Total  Eff."}} 

TableAlignments 

->  Center] 

Mev  3s  Total  Eff.  3s 

Core  Total  Eff. 

0.777921 

0.011531 

0.0000989049 

0.7395 

0.01166 

0.0000989923 

0.411491  1 

0.0129726 

0.0000959297 

0.366421 

0.0132075 

0.0000943819 

0.181068 

0.0155667 

0.0000482212 

0.142675 

0.0162615 

0.0000187687 

0.140511 

0.0163367 

0.0000156997 

0.0405845 

0.0151698 

8 . 03424  x  10'23 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the  solid 
cylindrical  detector  crystal  with  a  disk  source  10  cm  above.  The  references 
is  Scintillation  Spectrometry  2nd  Ed..  Heath,  R. ,  1964,  pg.  21. 

The  limits  of  integration  for  the  solid  cylinder  with  a  disk  source: 


Alds3sfar  =  Cos[0] ; 

Blds3sfar[$_,  p_]  = 

Cos[ArcTan[  |-p*Sin[tf>]  +  -  (p2  -  Rcrystal2  )  j  j 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 

xlds3sfar  [£_]  =  Lcrystal  /  £; 

A2ds3sfar [$_,  p_]  = 

Cos  [ArcTan[  |-p  *  Sin[$]  +  ^fp2  *  (Sin[<£] ) 2  -  (p2  -  Rcrystal2  )  j  j 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 

B2ds3sfar  [<p_,  p_]  = 

Cos[ArcTan[  |-p*Sin[$]  +  -\/p2  *  (Sin[<£] ) 2  -  (p2  -  Rcrystal2  )  j  j 

(sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 


x2ds3sfar[£_,  <f>_,  p_]  = 

- - -  f-p*Sin[0]  +  -\fp2  *  (Sin[0]  )2  -  (p2  -  Rcrystal2  ) 

(sourceheight  +  Aldepth  +  gap  +  Lidepth) 
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etds3sfarl[e_]  :=  -  ( Nlntegrate [ 

7r  (Rsource) 2  ' 

Nlntegrate [ 

Nlntegrate [ 

(1  -  Exp[-ZGe[e]  *xlds3sfar[f]  ] )  * 

Exp[-2Al[e]  * xAl [£]  -  ELi[e]  *xLi[f]], 

t  ^  \  a 

{€,  Blds3sfar[0,  p]  #  Alds3sfar}]  ,  {</>, - #  — JJ  *p, 

2  2 

{p,  0,  Rsource}]  J 

£tds3sfarllist  =  Table  [etds3sfarl[Mb99gammas[  [n]  ]  ]  #  {n,  1,  8}  ] ; 

£tds3sfar2[e_J  :=  - — -  (Nlntegrate  [ 

7r  (Rsource)2  ' 

Nlntegrate [ 

Nlntegrate [ 

(1  -  Exp[-EGe[e]  * x2ds3sfar[£,  0,  p]  ] )  * 

Exp[-2Al[e]  *xAl[f]  -  SLi  [e]  *xLi[f]  ]  , 

{£,  B2ds3sfar[0,  p]  ,  A2ds3sfar[0,  p]}]  ,  {0,  ,  — }]  *p, 

2  2 

{p,  0#  Rsource}  ]J 

£tds3sfar21ist  =  Table [etds3s£ar2 [Mo99gammas[  [n]  ]]  #  {n,  1,  8}]; 
£tds3sfarlist  =  etds3sfarllist  +  £tds3sfar21ist; 
etds3sfarm  =  {{0,  0,  0,  0,  0,  0}, 

{etds3sfarlist [  [7]  ]  ,  0,  0,  0 ,  0,  0} ,  { etds3sfarlist [  [6]  ] ,  0,  0,0,  0,  0}, 
{ £tds3sf arlist [ [5] ] ,  etds3sfarlist [ [8]  ] ,  0,  0,  0,  0}, 

(0,  0,  £tds3s  far  list  [  [4]  ]  ,  0,  0,  0}, 

{0,  0,  £tds3sfarlist [ [1] ] ,  £tds3sfarlist [ [2] ] ,  £tds3sfarlist [ [3] ] ,  0}}; 

The  following  table  shows  the  contribution  of  each  zone  to  the  total 
efficiency  of  the  three-sided  cylinder  with  a  disk  source. 

TableForm[Table[{£tds3sfarllist[  [i]  ]  , 

£tds3sfar21ist [ [i] ] #  etds3sfarlist [ [i] ] } ,  {i,  1 ,  8}], 

TableHeadings  ->  {None,  {"Inner  Cone  Total  Eff.", 

"Outer  Wedge  Total  Eff.",  "Sum  Total  Eff."}}, 

TableAlignments  ->  Center]  ; 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the  five¬ 
sided  cylindrical  detector  crystal  with  a  disk  source  10  cm  above.  It  is 
assumed  the  ratio  of  the  five-sided  to  three-sided  crystal  total 
efficiencies  using  a  point  source  at  a  given  distance  is  the  same  for  using 
a  disk  source  at  the  same  distance. 
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etps5sf arlist 

etdsSsfarlist  =  - *  etds3sfarlist; 

etps3s£arlist 


etfar=  {{0,  0,  0,  0 ,  0,  0}, 

{etdsSsfarlist [  [7]  ]  ,  0,  0,  0,  0,  0},  {etdsSsfarlist [ [6] ] ,  0,  0,  0,  0,  0}, 
{etdsSsfarlist [ [5] ] ,  etdsSsfarlist [ [8] ] #  0,  0,  0,  0}, 

{0,  0,  etdsSsfarlist [  [4]  ]  ,  0,  0,  0}, 

{0,  0,  etdsSsfarlist [ [1]  ]  ,  etdsSsfarlist [ [2] ] ,  etdsSsfarlist [ [3] ] #  0}}; 

The  following  is  the  peak  to  total  efficiency  ratio  which  is  presumed  to  be 
independent  of  distance.  This  ratio  will  allow  finding  the  peak  efficiency 
from  the  calculated  total  efficiency  with  a  disk  source  on  the  face  of  the 
detector.  The  reference  is  Equation  11  and  text,  (McCallum  and  Coote,  1975), 
pg.  192. 

epds5s£arlist 

PKtoTTLds5slist  =  - ; 

etdsSsfarlist 

TableForm [ Table [  {Mo99gaiimas[  [i]  ]  ,  etds5sfarlist  [  [i]  ]  , 
epdsSsf arlist [ [i] ] ,  PKtoTTLdsSslist [ [i] ] } ,  {i,  1,  8}], 

TableHeadings ->  {Ndne,  {"Mev",  "etdsSs"/  "epdsSs",  HP/Tn}}# 
TableAlignments  ->  Center] 


Mev 

etdsSs 

epds5s 

P/T 

0.777921 

0.0113962 

0.00329189 

0.288859 

0.7395 

0.0115246 

0.00343397 

0.29797 

0.411491 

0.0128343 

0.00558991 

0.435546 

0.366421 

0.0130694 

0.00615309 

0.4708 

0.181068 

0.0154519 

0.0104779 

0.678097 

0.142675 

0.0161608 

0.0118159 

0.731147 

0.140511 

0.0162371 

0.0118833 

0.73186 

0.0405845 

0.0150736 

0.00231552 

0.153614 

TableForm[Table[{M699gansnas[  [i]  ]  ,  etds3sf arlist  [  [i]  ] , 
e tpsSsf arlist [ [i] ] ,  £ tps3sf arlist [ [i]  ]} ,  {i,  1,  8}], 
TableHeadings ->  {Nbne,  {nNtevn#  n£tds3sHf  ,,etps5sn#  ,,etps3sn}}# 
TableAlignments  ->  Center] 


Mev 

etds3s 

etps5s 

etps3s 

0.777921 

0.0114845 

0.0114423 

0.011531 

0.7395 

0.0116127 

0.0115715 

0.01166 

0.411491 

0.0129168 

0.0128898 

0.0129726 

0.366421 

0.01315 

0.0131267 

0.0132075 

0.181068 

0.0154876 

0.0155308 

0.0155667 

0.142675 

0.0161736 

0.0162487 

0.0162615 

0.140511 

0.0162477 

0.016326 

0.0163367 

0.0405845 

0.0150736 

0.0151698 

0.0151698 
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Next,  the  total  efficiency  of  the  three-sided  crystal  with  the  disk  source 
on  the  detector  face  is  shown  below.  (The  procedure  of  using  the  ratios  of 
the  efficiencies  is  repeated  to  find  the  total  efficiency  for  the  five-sided 
crystal.)  The  distance  in  cm  between  the  detector's  face  and  crystal 
includes  the  thickness  of  the  A1  can,  the  axial  space  (vacuum) ,  and  the  Li 
contact . 

sourceheight  =  0; 

The  limits  of  integration  for  the  five-sided  cylinder: 

Array  [Aps5sf ace,  4]  ; 

Array [Bps 5sf ace,  4]  ; 

Array [xps5sf ace,  4]  ; 

Bps5sface[4]  = Cos[0] ; 

Aps5sf ace [4]  =  Cos [ ArcTan [ 

(Rcrystal  -  Rdd)  /  (sourceheight  +  Al depth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps5sface[4]  [f_]  =  Add  /  £; 

Bps5sf ace [ 3 ]  = Aps5sf ace [ 4 ] ; 

Aps5sface[3]  =  Cos [ 

ArcTan [  (Rcrystal  -  Rdd)  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add)  ]  ]  ; 
xps5sface[3] [£_]  = 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal  +  Add)  /  £  - 
(Rcrystal  -  Rdd)  /  Vl  -  S'2  ; 

Bps5sface[2]  = Aps5sface[3] ; 

Aps5sface[2]  = 

Cos  [ArcTan [Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps5sface[2] [£_]  =  Lcrystal /£; 

Bps5sface[l]  =  Aps5sface[2] ; 

Aps5sface[l]  = 

Cos  [ArcTan [Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 
xps5sface[l] [f_]  = 

Rcrystal  /  V 1  -  f 2  -  ( sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  f ; 
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etps5sface[e_]  :  =  —  *  ^  NIntegrate  [  ( 1  -  Exp[-2Ge[e]  *  xps5sface[i]  [f]]) * 

Exp[-ZA1 [e]  *xAl[f]  -  ZLi [e]  * xLi [£]  ]  , 

{g,  Aps5sface[i] ,  Bps5sface[i]}]; 

etpsSsfacelist = Table [etps5sf ace [Mo99gainmas[ [n] ]] ,  {n,  1,  8}]; 

The  limits  of  integration  for  the  solid  cylinder  with  a  point  source: 


Array[Aps3sface,  2]  ; 

Array [Bps3s face,  2]  ; 

Array [xps3sf ace,  2]  ; 

Bps3sface[2]  =Cos[0]; 

Aps3sface[2]  = 

Cos  [ArcTan[  Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps3sface[2] [f_]  =  Lcrystal /f; 

Bps3sface[l]  = Aps3sface[2] ; 

Aps3sface[l]  = 

Cos  [ ArcTan [ Rcrys t al  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 
xps3sface[l]  [f__]  = 

Rcrystal /  V 1  -  ff2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  f ; 

2 

etps3sface[e_]  :=  — *  V NIntegrate [( 1  -  Exp[-2Ge[e]  *xps3sface[i]  [f]]) * 

2  ti 

Exp[-2Al  [e]  *  xAl  [£]  -  SLi [e]  *xLi[£]  ]  , 

{£,  Aps3sface[i] ,  Bps3sface[i] } ] ; 

etps3sfacelist = Table [etps3sf ace [Mo99gamnas[ [n] ]] ,  {n,  1,  8}]; 

The  limits  of  integration  for  the  solid  cylinder  with  a  disk  source: 

Alds3sface  =  Cos[0] ; 

Blds3sface[0_,  p_]  = 

Cos[ArcTan[  ^-p*Sin[<£]  +  ^fp2  *  (Sin[$]  )2  -  (p2  -  Rcrystal2  )  j  J 
(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xlds3sface[£_]  = Lcrystal /  £; 
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A2ds3sface[<£_,  p_]  = 

Cos[ArcTan[  |-p*Sin[<£]  +  yp2  *  (Sin  [4] ) 2  -  (p2  -  Rcrystal2  ) 
( sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 

B2ds3sface[0_,  p_]  = 

Cos[ArcTan[  |-p  *  Sin[0]  +  yp2  *  (Sin[</>]  )2  -  (p2  -  Rcrystal2  ) 

(sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 


)/ 

)/ 


x2ds3sface[£_,  </>_,  p_]  = 

—  —  f-p  *  Sin[0]  +  ^fp2*^S±a[^])^  -  (p2  -  Rcrystal2  ) 

Vl-f2  V 

(sourceheight  +  Aldepth  +  gap  +  Lidepth) 


etds3sfacel[e_]  :=  -  (NXntegrate [ 

7r  (Rsource) 2  ' 

NIntegxate  [ 

NXntegrate [ 

(1  -  Exp[-ZGe[e]  *xlds3sface[f]  ] )  * 

Exp[-ZAl [e]  *xAl[f]  -  2Li[e]  *xLi[f]  ]  , 

(f,  Blds3sface[0/  p]  ,  Alds3sface}]  ,  { <t> ,  — }]  *p, 

2  2 

{p,  0,  Rsource}]  j 

etds3sfacellist  =  Table  [  e  tds3  sfacel  [  Mo9  9gammas  [  [n]  ]  ] ,  (n,  1,  8}  ]  ; 

£tds3sface2  [e_]  :=  - - -  (NIntegrate[ 

7r  (Rsource)2  v 

NXntegrate [ 

NXntegrate [ 

(1  -  Exp[-EGe[e]  *x2ds3sface[£,  <t>,  p]  ] )  * 

Exp[-SAl[e]  *xAl[f]  -  £Li[e]  *xLi[f ]  ]  # 

(f,  B2ds3sface[0/  p]  ,  A2ds3sface[tf>#  p]}]  #  {0# - #  — j]  *p, 

2  2 

(p#  0#  Rsource}]  j 

etds3sface21ist  =  Table [etds3sface2 [M699gammas[  [n]  ]]  ,  {n,  1,  8}]; 
£tds3sfacelist  =  etds3sfacellist  +  etds3sface21ist; 


The  following  table  shows  the  contribution  of  each  zone  to  the  total 
efficiency  of  the  three-sided  cylinder  with  a  disk  source. 
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TableForm[Table[{etds3sfacellist[ [i] ] , 

etds3sface21ist[[i]],  etds3sfacelist[ [i] ] },  {i,  1,  8}J, 

TableHeadings  ->  {Non©,  {"Inner  Con©  Total  Eff.", 

"Outer  Wedge  Total  Eff.",  "Sum  Total  Eff."}}, 

TableAlignments  ->  Center] ; 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the  five¬ 
sided  cylindrical  detector  crystal  with  a  disk  source  at  the  face.  It  is 
assumed  the  ratio  of  the  five-sided  to  three-sided  crystal  total 
efficiencies  using  a  point  source  is  the  same  for  using  a  disk  source  at  the 
same  distance. 

etps5sfacelist 

etdsSs face list  =  - *  etds3sfacelist; 

etps3sfacelist 

Using  the  peak- to- total  efficiency  ratio  calculated  above,  the  peak 
efficiency  of  the  five-sided  crystal  with  a  disk  source  at  the  face  is  shown 
below: 


epds5sfacelist  =  etdsSsfacelist  *  PKtoTTLdsSslist; 

To  summarize  the  results  up  to  present,  a  table  is  provided  below. 


TableForm[ Table [  {Mo9  9  gammas  [  [i]  ] ,  etdsSsf acelist [  [i]  ] , 

epdsSsfacelist  [  [i]  ]  }  ,  {i,  1,  8}],  TableHeadings  ->  {None, 

{"Ganina  (Mev)",  "Total  Face  Efficiency",  "Peak  Face  Efficiency"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 
0.777921 
0.7395 
0.411491 
0.366421 
0.181068 
0.142675 
0.140511 
0.0405845 


Total  Face  Efficiency 
0.200224 
0.202814 
0.230221 
0.235375 
0.29407 
0.311384 
0.312996 
0.25664 


Peak  Face  Efficiency 
0.0578365 
0.0604324 
0.100272 
0.110815 
0.199408 
0.227668 
0.22907 
0.0394235 
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TableForm[Table[{Mo99gammas[  [i]  ]  ,  etds3sf acelist  [  [i]  ]  , 
e tpsSsf acelist [ [i]  ] ,  e tps3sf acelist [ [i] ]} ,  {i,  1,  8}], 
TableHeadings ->  {Nbne,  {"Mevn,  n£tds3sn,  "etpsSs",  "£tps3sn} } , 
Tabl  ©Alignments  ->  Center] 


Mev 

etds3s 

etpsSs 

etps3s 

0.777921 

0.20133 

0.205031 

0.206163 

0.7395 

0.203913 

0.207689 

0.208815 

0.411491 

0.231198 

0.235803 

0.236804 

0.366421 

0.236318 

0.241084 

0.242049 

0.181068 

0.294406 

0.300605 

0.300948 

0.142675 

0.31149 

0.317405 

0.317513 

0.140511 

0.313083 

0.318911 

0.319 

0.0405845 

0.25664 

0.259284 

0.259284 

The  next  step  is  to  place  the  various  coefficients  for  the  summing 
correction  equations  in  matrix  form.  The  reference  is  (Andreev  and  others, 
1972),  pg.  1358-1360 . 

The  internal  conversion  coefficients  for  Mo-99  are  shown  below.  The 
reference  is  (Peker,  1994),  pg.  40-41.  Due  to  Mathematica' s  indexing,  the 
ground  state  is  level  1. 

a  =  {{0,  0,  0,  0,  0,  0),  {0.119,  0,  0,  0,  0,  0}, 

{29.,  0,  0,  0,  0,  0},  {0.126,  3.2,  0,  0,  0,  0},  {0,  0,  0.0076,  0,  0,  0}, 
{0,  0,  0.00059,  0.0016,  0.003,  0}}; 

Mat rixForm [a]  ; 

The  following  are  branch  ratios  for  cascading  Mo-99  gammas  in  Chain  1 
(740-181&40-141) ,  Chain  2  (777&411-366) ,  and  the  Tc- 9 9m  Chain  (142&2-140) . 
The  reference  is  (Peker,  1994),  pg.  40-41.  Due  to  Mathematica ' s  indexing, 
the  ground  state  is  level  1. 


xMol  =  {{0,  0,  0,  0,  0,  0},  {1,  0,  0,  0,  0,  0},  {0,  0,  0,  0,  0,  0}, 

{0.579,  0.421,  0,  0,  0,  0},  {0,  0,  0,  0,  0,  0},  {0,  0,  0,  0.739,  0,  0}}; 

Mat rixForm  [  xMol  ]  ; 

xM62  =  {{0,  0,  0,  0,  0,  0),  {0,  0,  0,  0,  0,  0},  {0,  0,  0,  0,  0,  0}, 

{0,  0,  0,  0,  .0,  0},  {0,  0,  1,  0,  0,  0},  {0,  0,  0.260,  0,  0.001,  0}>; 

Mat  rixForm  [  xMo2  ]  ; 

xTcl  =  {{0,  0,  0,  0,  0,  0},  {1,  0,  0,  0,  0,  0},  {0.01,  0.99,  0,  0,  0,  0}, 

{0,  0,  0,  0,  0,  0},  {0,  0,  0,  0,  0,  0),  {0,  0,  0,  0,  0,  0} } ; 


MatrixForm[xTcl] ; 
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The  peak  face  efficiencies  are  placed  in  a  matrix  according  to  their  level 
transitions . 

epf ace  =  {{0,  0,  0,  0,  0#  0),  {epdsSsfacelist [  [7]  ] ,  0,  0 ,  0,  0#  0), 
{epdsSsfacelist  [  [6]  ]  ,  0,  0,  0,  0,  0), 

{epdsSsfacelist [ [5] ] ,  epdsSsfacelist [ [8]  ] ,  0,  0,  0,  0}, 

{0,  0,  epdsSsfacelist [ [4] ] ,  0 ,  0,  0},  {0,  0,  epdsSsfacelist [ [1] ] , 
epdsSsf acelist [ [2] ] #  epds5sf acelist [ [3] ] ,  0}}; 

MatrixForm[epface]  ; 

MatriXForm[epfar]  ; 

The  total  face  efficiencies  are  placed  in  a  matrix  according  to  their  level 
transitions . 


etface =  {  { 0,  0,  0,  0,  0,  0},  { etdsSsf acelist  [  [7]  ]  ,  0,  0#  0,  0,  0), 

{ etds5sf acelist  [  [6]  ]  ,  0,  0,  0,  0,  0}, 

{ etdsSsfacelist [ [5] ] ,  etdsSsfacelist [ [8] ] ,  0,  0,  0,  0}, 

{0,  0,  etdsSsfacelist [  [4]  ]  ,  0,  0,  0},  {0,  0,  etdsSsfacelist  [  [1]  ] , 
e tds5sf acelist [ [2] ] ,  e tds5sf acelist [ [3] ] ,  0}  }  ; 

MatrixForm[  etface] ; 

MatrixForm[etfar]  ; 


The  Mo-99  /3-  decay  branch  ratios  are  listed  below  in  the  array.  The 

reference  is  (Peker,  1994),  pg.  42. 

/3=  {0,  0,  0.824,  0,  0.012,  0.164); 

MatrixForm[/3]  ; 


The  following  method  adjusts  the  theoretical  or  normalized  angular 
correlation  coefficients  for  the  geometric  relation  between  source  and 
detector.  The  equation's  form  is  1  +A2  exp-^2  (cos©)  +  A4  expP4  (cos6)  with 
Akexp=AkQk('Yi*Y2)  *  &k  being  the  theoretical  coefficient,  Pk  being  the  Legendre 


polynomial  of  order  k,  6  being  the  angle  between  Yi  and  y2 ,  Qk  = 
Jo  (Yi)  Jo  (Y2 ) 

-f  ,  .  viNzones 

Jk(  Y)  =  Z,i=i 


where 
^B(a)  jl 


r 

Ja( 


i(a)  i  pk(oosa)  [1  -  Exp (-r(Ey)  x(a)  i)  ]  sinada.  The 
reference  is  (Camp  and  Van  Lehn,  1969),  pg.  192-240.  To  calculate  the  Jk 
terms  will  involve  repeating  the  above  method  of  finding  ratios  of  point 
source/disk  source  geometries. 


The  following  determines  J2  and  J4  for  the  three-sided  cylinder  with  the 
disk  source  at  the  face  of  the  detector. 
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J2ds3s£ace[e__]  : 

NIntegrate [ 
NTntegrate [ 


7 r  (Rsource)' 


NIntegrate [ 


*  <«‘ 


I) 


*  (1  -  Exp[-SGe[e]  *xlds3sface[£]  ] )  * 


Exp[-SAl[e]  *xAl[f]  -  SLi [e]  *xLi[f]  ]  , 

{£,  Blds3sface[$,  p] ,  Alds3sface}]  +  NIntegrate [ 
3 


*  (1  -  Exp[-2Ge[e]  *x2ds3sface[£,  <f>,  p]  ] )  * 

Exp[-LAl[e]  * xAl [£]  -  ELi[e]  *xLi[f]], 

{€,  B2ds3sface[0,  p] ,  A2ds3sface[<£,  p] }]  , 

7}]*^ 

{p,  0,  Rsource}] 


J2ds3s£ar[e_]  := - -  NIntegrate  [ 

7r  (Rsource)2 

NIntegrate [ 

NIntegrate [ 

(3  l  \ 

—  *  (f)2  -  —  \  *  (1  -  Exp[-EGe[e]  * xlds3sfar[£ ]  ] )  * 

Exp[-2Al[e]  *xAl[f]  -2Li[e]  *xLi[f]], 

{f,  Blds3s£ar[0,  p] ,  Alds3s£ar}]  +  NIntegrate [ 

^  *  (f) 2  -  -1-j  *  (1  -  Exp[-SGe[e]  * x2ds3sfar [f ,  <j>,  p]  ] )  * 

Exp[-EAl [e]  *xAl[f]  -  ELi [e]  *xLi[f]], 

(f ,  B2ds3s£ar[0,  p]  ,  A2ds3s£ar[0,  p]}]  , 

{p,  0,  Rsource}] 


J2ds3s£acelist  =  Table [J2ds3sface [Mo99gairanas  [  [i]  ]]  ,  {i,  1,  8}]; 
J2ds3sfarlist = Table[ J2ds3sfar[Mo99gammas[ [i] ]] ,  (i#  1#  8}]; 
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J4ds3sface[e_]  : 

NIntegrate [ 
NXntegrate [ 

( 35  .  30  . 


n  (Rsource)' 


NIntegrate [ 


+  — |  *  (1  -  Exp[-EGe[e]  * xlds3sf ace [ f ]  ] )  * 
8 


Exp[-EAl[e]  *xAl[£]  -  ELi[e]  * xLi [f  ]  ] , 

{£,  Blds3sface[0,  p]  ,  Alds3sface}]  +  NIntegrate [ 


( 35  4 

(t*  <5) 


30 


*  (£)■ 


7) 


(1  -  Exp[-£Ge[e]  *x2ds3sface[£,  <p,  p]  ] )  * 
Exp[-EAl[e]  *xAl[£]  -  ELi [e]  *  xLi [£] ] , 

{£ ,  B2ds3s£ace[0,  p] ,  A2ds3sface[$,  p] }  ]  , 

*P# 

{p,  0,  Rsource}] 


K-j-y}] 


J4ds3sf ar  [e_]  s  =  - NIntegrate  [ 

7r  (Rsource)2 

NIntegrate [ 

NIntegrate [ 

(-y-*  (f)4  -  (S)2  +  -j)  *  (1  -  Exp[-EGe[e]  *xlds3sfar[£]  ] )  * 


Exp[-IAl [e]  *xAl[f]  -ELi[e]  *xLi[f]]# 

{€,  Blds3sfar[0,  p]  ,  Alds3s£ar}]  +  NIntegrate [ 


(?)4 


30 

-*<er 


* 


(1  -  Exp[-EGe[e]  *x2ds3sfar[£,  4>,  p]  ] )  * 
Exp[-EAl[e]  *xAl[f]  -  ELi[e]  *xLi[f]], 
{f#  B2ds3sfar[0,  p] ,  A2ds3sfar[0,  p]}]  , 

f  7C  7T  i 

{*'  "7'  7}]  *p' 

{p,  0,  Rsource}] 


J4ds3s£acelist  =  Table [J4ds3s£ace[Mo99gammas[  [i]  ]  ] ,  {i,  1,  8}  ]  ; 
J4ds3sfarlist =  Table [J4ds3sfar[Mo99gammas [ [i] ]] ,  {i,  1,  8}]; 


Q2ds3sf ace  =  Table  [1,  {1,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 


Q2ds3s£ar  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Q4ds3sf ace  =  Table [1,  {i#  1,  6},  {k#  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Q4ds3s£ar  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
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Q2ds3sface[  [6,  4,  4,  1] 
Q2ds3sfar[  [6,  4,  4,  1]] 
Q4ds3sface[ [6,  4,  4,  1] 
Q4ds3sfar[  [6,  4,  4,  1]  ] 
Q2ds3s£ace[ [6,  4,  4,  2] 
Q2ds3sfar[  [6,  4,  4,  2]] 
Q4ds3sface[ [6,  4,  4,  2] 
Q4ds3sfar [  [6,  4,  4,  2]] 
Q2ds3sface[ [6,  4,  2,  1] 
Q2ds3sfar[ [6,  4,  2,  1]  ] 
Q4ds3s£ace[ [6,  4,  2,  1] 

Q4ds3sfar[  [6,  4,  2,  1]  ] 

Q2ds3s£ace[ [4,  2,  2,  1] 

Q2ds3sfar[  [4,  2,  2,  1]  ] 
Q4ds3s£ace[ [4,  2,  2,  1] 
Q4ds3sfar[  [4,  2,  2,  1]  ] 


J2ds3sfacelist [ [2] ]  *  J2ds3sf acelist [ [5] ] 
etds3sfacelist [ [2] ] *  etds3sf acelist [ [5] ] 

J2ds3sf arlist [ [2] ]  * J2ds3sfarlist [ [5] ] 
etds3sf arlist [  [2]  ]  *  etds3sfarlist [  [5]  ] 

J4ds3sf acelist [ [2] ] *  J4ds3sf acelist [ [5] ] 
etds3sf acelist [ [2] ] *  etds3sf acelist [ [5] ] 

J4ds3sf arlist [ [2] ]  * J4ds3sf arlist [ [5] ] 

,  • 

etds3sf arlist [ [2] ]  *  etds3sfarlist [ [5] ] 

J2ds3sf acelist [ [2] ]  * J2ds3sf acelist [ [8] ] 
etds3sf acelist [ [2] ] *  etds3sf acelist [ [8] ]  ' 

J2ds3sf arlist [ [2] ]  *  J2ds3 sf arlist [ [8] ] 

. .  • 

e tds3sf arlist [ [2] ]  *  etds3sfarlist [ [8] ]  ' 

J4ds3sf acelist [ [2] ]  *  J4ds3sf acelist [ [8] ] 

.  • 

etds3sf acelist [ [2] ]  *  etds3sf acelist [ [8] ]  ' 

J4ds3sf arlist [ [2] ]  *  J4ds3s£arlist [ [8] ] 
etds3sfarlist [ [2] ]  *  etds3sf arlist [ [8] ] 

J2ds3sf acelist [ [2] ] *  J2ds3sf acelist [ [7] ] 
etds3sf acelist [ [2] ]  * etds3sf acelist [ [7] ]  ' 

J2ds3sf arlist [ [2] ] *  J2ds3sfarlist [ [7] ] 
e tds3sf arlist [ [2] ] *  etds3sf arlist [ [7] ]  ' 

J4ds3sf acelist [ [2] ]  *  J4ds3sf acelist [ [7] ] 
etds3sf acelist [ [2] ]  *  £tds3sf acelist [ [7] ]  ' 

J4ds3sf arlist [ [2] ] * J4ds3 sf arlist [ [7] ] 
etds3sf arlist [ [2] ]  *  e tds3 sf arlist [ [7] ]  ' 

J2ds3sf acelist [ [8] ]  * J2ds3sf acelist [ [7] ] 
etds3sf acelist [ [8] ]  *  £tds3sf acelist [ [7] ]  ' 

J2ds3sf arlist [ [8] ]  * J2ds3sf arlist [ [7] ] 
£tds3sf arlist  [  [8]  ]  *  £tds3sf arlist  [  [7]  ] 

J4ds3sfacelist  [  [8]  ]  *  J4ds3s£acelist  [  [7]  ] 
etds3sf acelist  [  [8]  ]  *  £tds3sfacelist  [  [7]  ]  ' 

J4ds3sf arlist  [  [8]  ]  *  J4ds3s£arlist  [  [7]  ] 
£tds3sfarlist[ [8] ]  *  £ tds3sf arlist [ [7] ]  ' 


The  following  determines  J2  and  J4  for  the  five-sided  cylinder  with  the 
point  source  at  the  face  of  the  detector. 
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J2ps5sface [e_] 


—  *  y NIntegrate [  *  (£)2  “  — j  *  (1  -  Exp[-2Ge[ej  *xps5sface[i]  [f  ]  ] )  * 


Exp[-2Al  [e]  *xAl[f]  -  2Li  [e]  *xLi[f]  ]  , 

{£,  Aps5sface[i] ,  Bps5sface[i] } ]  ; 

J2ps5sfar[e_]  :  = 

1  ^  #  J  ^  \ 

—  *  y NIntegrate [  *  (?)2  -  *  (1  -  Exp[-2Ge[e]  *jq?s5sfar[i]  [?]])* 

Exp[-2Al[e]  *xAl[f]  -2Li[e]  *xLi[f]], 

{f,  Aps5s£ar[i] ,  Bps5sfar[i]  }]  ; 

J2ps5sf acelist = Table [J2ps5sf ace [Mo99gammas[ [i] ]] ,  {i,  1,  8}]; 
J2ps5sfarlist  =  Table [  J2ps5sfar[Mb99gammas[  [i]  ]]  ,  {i,  1,  8}]; 

1  4 

J4ps5s£ace [e_]  :  =  —  *  ^  NIntegrate [ 

^  i=l 

/  35  ,30  „  3  \ 

—  *  (f)4 - *  (S)2  +  —  *  (1  -  Exp[-2Ge[e]  *xps5sface[i]  [£]])* 

V  8  8  8  ) 

Exp[-2Al[e]  *xAl[f]  -  2Li [e]  *xLi[f]  ]  , 

{£,  Aps5sface[i]  ,  Bps5sface[i]  }  ]  ; 

1  4 

J4ps5s£ar  [  e_]  :  =  —  *  y  NIntegrate  [ 


i=l 


*  (S)4  ~  ~  *  (f)2  +  4-)  *  (1  -  £xp[-2Ge[e]  *xps5sfar[i]  [£]])* 
^  8  8  8  ) 

Exp[-2Al[e]  *xAl[f]  -2Li[e]  *xLi[£]], 

{€,  Aps5sfar[i] ,  Bps5sfar[i] }] ; 

J4ps5s£acelist = Table [J4ps5sface [Mo99gaimnas [ [i] ]] ,  {i,  1,  8}]; 
J4ps5sfarlist  =  Table [  J4ps5sfar[Mo99gammas [  [i]  ]] ,  {i,  1,  8}]; 

Q2ps5sf ace  =  Table [1,  {1,  1,  6>,  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 


Q2ps5sfar  =  Table [1,  {i,  1,  6},  {k,  1,  6}#  {1,  1,  6},  (m,  1,  6}]; 

Q4ps5sf ace  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 

Q4ps5sfar  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 

J2ps5sfacelist  [  [2]  ]  *  J2ps5sf acelist  [  [5]  1 

Q2ps5s£ace[  [6,  4,  4,  1]  ]  =  - ; 

etps5sf acelist [ [2] ]  *  etps5sf acelist [ [5] ] 
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Q2ps5sfar[  [6,  4,  4,  1]  ] 
Q4ps5sface[ [6,  4,  4,  1] 
Q4ps5sfar[  [6,  4,  4,  1]  ] 
Q2ps5sface[  [6,  4,  4,  2] 
Q2ps5sfar [  [6,  4,  4,  2]] 

Q4ps5sface[ [6,  4,  4,  2] 

Q4ps5sfar[  [6,  4,  4,  2]] 

Q2ps5sface[ [6,  4,  2,  1] 
Q2ps5sfar[  [6,  4,  2,  1]  ] 
Q4ps5sface[  [6,  4,  2,  1] 
Q4ps5sfar[  [6,  4,  2,  1]  ] 

Q2ps5sface[ [4,  2,  2,  1] 
Q2ps5sfar[  [4,  2,  2,  1]  ] 
Q4ps5sface[ [4,  2,  2,  1] 
Q4ps5sfar[  [4#  2,  2,  1]  ] 


J2ps5sf arlist  [  [2]  ]  *  J2ps5sf arlist  [  [5]  ] 
etps5sf arlist [  [2]  ]  *  etps5sf arlist  [  [5]  ] 

J4ps5sf acelist [ [2] ]  *  J4ps5sf acelist [ [5] ] 
etps5sfacelist[  [2]  ]  *  etps5sf acelist  [  [5]  ] 

J4ps5sf arlist [ [2] ]  * J4ps5sf arlist [ [5] ] 
e tps5sf arlist  [  [2]  ]  *  etps5sf arlist  [  [5]  ] 

J2ps5sf acelist [ [2] ]  *  J2ps5sfacelist [ [8] ] 

,  n  f  -  r .  - . . . —  -  • 

etps5sf acelist [ [2] ]  * etps5sfacelist [ [8] ] 

J2ps5sf arlist [ [2] ]  * J2ps5sf arlist [ [8] ] 
etpsSsfarlist [  [2]  ]  *  etps5sf arlist  [  [8]  ]  ' 

J4ps5sf acelist [ [2] ]  *  J4ps5sf acelist [ [8] ] 

. .  - - - - - -  • 

£ tpsSsf acelist [  [2]  ]  *  etps5sf acelist  [  [8]  ] 

J4ps5sf arlist  [  [2]  ]  *  J4ps5sfarlist  [  [8]  ] 
etpsSsfarlist [  [2]  ]  *  etpsSsfarlist [  [8]  ] 

J2ps5sf acelist [  [2]  ]  *  J2ps5sf acelist  [  [7]  ] 

£  tps5sf  acelist  [  [2]  ]  *  £ tpsSsf acelist [  [7]  ] 

J2ps5sf arlist  [  [2]  ]  *  J2ps5sf arlist  [  [7]  ] 

£ tpsSsf arlist [ [2] ]  *  etps5sfarlist [ [7] ] 

J4ps5sf acelist  [  [2]  ]  *  J4ps5sf acelist  [  [7]  ] 

£  tpsSsf  acelist  [  [2]  ]  *  e  tps  5s  f  acelist  [  [7]  ] 

J4ps5sf arlist  [  [2]  ]  *  J4ps5sf arlist  [  [7]  ] 

....  • 

etpsSsfarlist  [  [2]  ]  *  etpsSsfarlist  [  [7]  ]  ' 

J2ps5sf acelist  [  [8]  ]  *  J2ps5sfacelist  [  [7]  ] 
e tps5sf acelist  [  [8]  ]  *  etps5sf acelist  [  [7]  ] 

J2ps5sf arlist  [  [8]  ]  *  J2ps5sf arlist  [  [7]  ] 
etps5sf arlist  [  [8]  ]  *  etps5sf arlist  [  [7]  ] 

J4ps5sf acelist [ [8] ] * J4ps5sf acelist [ [7] ] 

-  • 

£ tps5sf acelist  [  [8]  ]  *  etpsSsf acelist  [  [7]  ] 

J4ps5sf arlist  [  [8]  ]  *  J4ps5sf arlist  [  [7]  ] 
£tps5sf arlist  [  [8]  ]  *  etpsSsfarlist  [  [7]  ] 


The  following  determines  J2  and  t74  for  the  three-sided  cylinder  with  the 
point  source  at  the  face  of  the  detector. 
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J2ps3sface[e_]  := 


*  y  NIntegrate [  *  (f)2  -  i)  *  (1  -  Exp[-2Ge[e]  * scps3sface[i]  [£]])  * 


Exp[-EAl[e]  *xAl[f]  -  2Li[e]  *xLi[£]  ]  , 

{f,  Aps3sface[i]  ,  Bps3sface[i]  }]  ; 

J2ps3sfar[e_]  := 

1  /  3  ^  \ 

—  *  y  NIntegrate [  ^  —  *  (£)2  -  — j  *  (1  -  Exp[-EGe[e]  * xps3sfar[i]  [£]])  * 

Exp[-2Al[e]  *xAl[f]  -  2Li[e]  *xLi[f]], 

{£,  Aps3sfar[i] ,  Bps3sfar[i]  }]  ; 

J2ps3sfacelist  =  Tablet  J2ps3sface[Mo99gaitonas[  [i]  ]]  ,  {i,  1,  8}]; 
J2ps3sfarlist  =  Table [J2ps3sfar[Mo99gaxnmas[  [i]  ]  ]  ,  {i,  1,  8}]; 


1  vi 

J4ps3sface[e_]  :  =  —  NIntegrate  [ 


{ 35  t 

hr*<4) 


—  *  (f)2  +  —  *  (1  -  Exp[-2Ge[e]  * xps3sface[i]  [£]])  * 
8  8  } 


Exp[-2Al [e]  *xAl[f]  -  2Li[e]  *xLi[f]  ]  , 

{f,  Aps3sface[i]  ,  Bps3sface[i]  }]  ; 

1  V 

J4ps3sfar[e_]  := — *  >  NIntegrate [ 

2  ui 

( 35  .  30  ,  3  \ 

- *  (f)4  -  - *  (C)2  +  —  *  (1  -  Exp[-2Ge[e]  * xps3sfar[i]  [f]  ] )  * 

\  8  8  8  ) 

Exp[-2Al[e]  *xAl[f]  -  2 Li [e]  *xL±[f]  ] , 

{£,  Aps3sfar[i]  ,  Bps3sfar[i]  }]  ; 

J4ps3sfacelist  =  Table [  J4ps3sf ace [Mo99gammas[  [i]  ]  ]  ,  {i,  1,  8}]; 
J4ps3sfarlist  =  Table [J4ps3sfar[Mo99gammas[  [i]  ]  ] ,  {i,  1,  8)]; 

Q2ps3sf ace  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6),  {m,  1,  6}]; 
Q2ps3sfar  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6)]; 

Q4ps3sf ace = Table [1,  {i,  1,  6),  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Q4ps3sfar  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 


Q2ps3sface[ [6,  4,  4,  1]]  = 


J2ps3sf acelist [ [2] ]  * J2ps3sfacelist [ [5] ] 
etps3sf acelist  [  [2]  ]  *  etps3sf acelist  [  [5]  ] 
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Q2ps3sfar[  [6,  4,  4,  1]  ] 


J2ps3sf arlist  [  [2]  ]  *  J2ps3sfarlist  [  [5]  ] 
etps3sf arlist [ [2] ]  * etps3sf arlist [ [5] ] 


Q4ps3sface[  [6,  4,  4,  1]]  = 


J4ps3sf acelist  [  [2]  ]  *  J4ps3sfacelist  [  [5]  ] 
etps3sf acelist  [  [2]  ]  *  etps3sf acelist  [  [5]  ] 


Q4ps3sfar[  [6,  4,  4,  1]  ] 


J4ps3sf arlist [ [2] ]  *  J4ps3sfarlist [ [5] ] 
etps3sf arlist  [  [2]  ]  *  e tps3sf arlist  [  [5]  ] 


Q2ps3sface[  [6,  4,  4,  2]] 


J2ps3sf acelist  [  [2]  ]  *  J2ps3sfacelist  [  [8]  ] 
etps3sfacelist[ [2] ] *  etps3sf acelist [ [8] ] 


Q2ps3s£ar[  [6,  4,  4,  2]] 


J2ps3sf arlist [ [2] ]  *  J2ps3 sf arlist [ [8] ] 
etps3sf arlist [ [2] ]  * e tps3sf arlist [ [8] ]  ' 


Q4ps3s£ace[  [6,  4,  4,  2]] 


J4ps3s£acelist  [  [2]  ]  *  J4ps3sfacelist  [  [8]  ] 
etps3sf acelist [ [2] ]  *  etps3sfacelist [ [8] ] 


Q4ps3sfar[  [6,  4,  4,  2]] 


J4ps3sf arlist [ [2] ]  *  J4ps3 sf arlist [ [8] ] 
etps3sf arlist  [  [2]  ]  *  etps3sf arlist  [  [8]  ] 


Q2ps3sface[  [6,  4,  2,  1]  ] 


J2ps3sf acelist [ [2] ]  *  J2ps3sf acelist [ [7] ] 
etps3sfacelist[  [2]  ]  *  etps3sf acelist  [  [7]  ] 


Q2ps3sfar[  [6,  4,  2,  1]  ] 


J2ps3sf arlist [ [2] ]  *  J2ps3 sf arlist [ [7] ] 
etps3sf arlist  [  [2]  ]  *  etps3sf arlist  [  [7]  ]  ' 


Q4ps3sface[  [6,  4,  2,  1]  ]  = 


J4ps3sf acelist [ [2] ] *  J4ps3sf acelist [ [7] ] 
etps3sfacelist[  [2]  ]  *  etps3sf acelist  [  [7]  ] 


Q4ps3sfar[  [6,  4,  2,  1]] 


J4ps3sf arlist [ [2] ]  *  J4ps3sf arlist [ [7] ] 

.  ...  • 

etps3sf arlist [ [2] ]  *  e tps3sf arlist [ [7] ]  ' 


Q2ps3sface[  [4,  2,  2,  1]  ] 


J2ps3sf acelist  [  [8]  ]  *  J2ps3sf acelist  [  [7]  ] 
etps3sf acelist  [  [8]  ]  *  etps3sfacelist  [  [7]  ] 


Q2ps3sfar[  [4,  2,  2,  1]  ] 


J2ps3sf arlist [ [8] ]  * J2ps3sf arlist [ [7] ] 

■  _ _  • 

etps3sf arlist  [  [8]  ]  *  £tps3sf arlist [  [7]  ] 


Q4ps3sface[  [4,  2,  2,  1]  ] 


J4ps3  sf  acelist  [  [8]  ]  *  J4ps3sf  acelist  [  [7]  ] 
e tps3sf acelist  [  [8]  ]  *  e tps3sf acelist  [  [7]  ] 


Q4ps3sfar  [  [4,  2,  2,  1]  ] 


J4ps3  sf  arlist  [  [8]  ]  *  J4ps3sf  arlist  [  [7]  ] 
etps3sf arlist [ [8]  ]  *  £ tps3sf arlist [ [7]  ] 


The  following  is  the  equation  to  compute  the  J*  of  the  five-sided 
cylindrical  detector  crystal  with  a  disk  source  at  the  face.  It  is  assumed 
the  ratio  of  the  five-sided  to  three-sided  crystal  Jjc’s  using  a  point  source 
is  the  same  for  using  a  disk  source  at  the  same  distance. 
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J2ps5sfacelist 
J2ds5sf acelist =  — — - — - — - *  J2ds3s£acelist; 


J2ds5sfarlist 


J2ps3sfacelist 
J2ps5sfarlist 


J2ps3sfarlist 


*  J2ds3sfarlist; 


J4ps5sf acelist 

J4ds5sf  acelist  =  - *  J4ds3sfacelist; 

J4ps3sf acelist 

J4ps5sfarlist 

J4ds5sf arlist  =  - *  J4ds3sfarlist; 

J4ps3s£arlist 

Q2ds5sface  =  Table [1,  {i,  1,  6},  {k,  1,  6}#  {1#  1,  6}#  {m#  1,  6 }]; 
Q2ds5sfar  =  Table [1,  {i,  1,  6},  {k#  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Q4ds5sface  =  Table [1,  {i,  1,  6),  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Q4ds5sfar  =  Table [1,  {i,  1,  6},  {k,  1,  6),  {1,  1,  6),  {m,  1,  6}]; 

J2ds5sf acelist [ [2] ]  *  J2ds5sf acelist [ [5] ] 


Q2ds5sface[ [6,  4,  4,  1]]  = 
Q2ds5sfar[[6,  4,  4,  1]  ]  = 
Q4ds5s£ace[ [6,  4,  4,  1] ]  = 
Q4ds5sfar[ [6,  4,  4,  1]  ]  = 
Q2ds5s£ace[ [6,  4,  4,  2]]  = 

Q2ds5sfar[ [6,  4,  4,  2] ]  = 

Q4ds5sface[ [6,  4,  4,  2]]  = 
Q4ds5s£ar[ [6,  4,  4,  2]]  = 

Q2ds5sface[ [6,  4,  2,  1]]  = 
Q2ds5sfar[ [6,  4,  2,  1]]  = 
Q4ds5sface[ [6,  4,  2,  1]]  = 


etds5sf acelist [ [2] ] *  etds5sf acelist [ [5] ] 

J2ds5sf arlist [  [2]  ]  *  J2ds5sf arlist [  [5]  ] 
etdsSsfarlist [  [2]  ]  *  etds5sfarlist  [  [5]  ]  ' 

J4ds5sfacelist [ [2] ] *  J4ds5sfacelist [ [5] ] 
etds5sf acelist [  [2]  ]  *  etds5sf acelist [  [5]  ] 

J4ds5sf arlist  [  [2]  ]  *  J4ds5s£arlist  [  [5]  ] 
etds5s£arlist  [  [2]  ]  *  etds5sf arlist  [  [5]  ]  ' 

J2ds5sf acelist [ [2] ] *  J2ds5sf acelist [ [8] ] 
etds5sf acelist [ [2] ] *  etds5sfacelist [ [8] ] 

J2ds5sfarlist  [  [2]  ]  *  J2ds5sf arlist  [  [8]  ] 
etdsSsfarlist [ [2] ]  *  etdsSsf arlist [ [8] ] 

J4ds5sf acelist [  [2]  ]  *  J4ds5sf acelist  [  [8]  ] 
e tdsSsf acelist [  [2]  ]  *  e  tds5sf  acelist  [  [8]  ] 

J4ds5sf arlist [ [2] ]  * J4ds5sf arlist [ [8] ] 
etds5sf  arlist  [  [2]  ]  *  etdsSsf  arlist  [  [8]  ]  ' 

J2ds5sf acelist  [  [2]  ]  *  J2ds5sf acelist  [  [7]  ] 
etdsSsf acelist [ [2] ] *  etds5sf acelist [ [7] ] 

J2ds5sf arlist  [  [2]  ]  *  J2ds5sf arlist  [  [7]  ] 

. .  # 

etdsSsf arlist [ [2] ]  *  etdsSsf arlist [ [7] ]  ' 

J4ds5sf acelist [ [2] ]  * J4ds5sf acelist [ [7] ] 
etdsSsf acelist [ [2] ]  *  etdsSsf acelist [ [7] ] 
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Q4ds5sfar  [  [6,  4,  2,  1]  ] 


J4ds5sf arlist [ [2] ]  *  J4ds5s£ arlist [ [7] ] 
etds5sf arlist  [  [2]  ]  *  etds5sf arlist [  [7]  ] 


Q2ds5sface[  [4,  2,  2,  1]  ] 


J2ds5sf acelist [ [8] ]  *  J2ds5sf acelist [ [7] ] 

.  _  • 

e tds5sf acelist [ [8] ]  *  etds5sf acelist [ [7] ]  ' 


Q2ds5sfar[ [4,  2,  2,  1]  ] 


J2ds5sf arlist [ [8] ]  *  J2ds5sf arlist [ [7] ] 
e tds5sf arlist  [  [8]  ]  *  etdsSsfarlist [ [7]  ]  ' 


Q4ds5sface[  [4,  2,  2,  1]  ]  = 


J4ds5sf acelist [ [8] ]  *  J4ds5sfacelist [ [7] ] 
etds5sf acelist [ [8] ] * etds5sf acelist [ [7] ] 


Q4ds5s£ar  [  [4,  2,  2,  1]  ] 


J4ds5sf arlist  [  [ 8]  ]  *  J4ds5sf arlist  [  [7 ]  ] 
etds5sf arlist  [  [8]  ]  *  etdsSsfarlist  [  [7]  ] 


The  following  creates  and  initializes  the  matrix  of  angular  correlation 
coefficients  between  cascading  Mo-99  gammas.  The  reference  is  (Gardulski 
and  Wiedenbeck,  1974),  pg.  262-265. 


V?ps5sface  =  Table [1,  {i,  1,  6},  {k,  1,  6),  {1,  1,  6},  {m,  1 ,  6}]; 
Wps5sfar =  Table [1,  { i,  1,  6),  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Wps5sface[ [6,  4,  4,  1]]  = 

1  +  .061*Q2ps5sface[  [6,  4,  4,  1]  ]  -  .004  *  Q4ps5s£ace[  [6,  4,  4,  1]  ]  ; 
Wps5sfar[[6,  4,  4,  1] ]  = 

1  +  .061  *  Q2ps5sfar[  [6,  4,  4,  1]  ]  -  .004  *  Q4ps5sfar[  [6,  4,  4,  1]  ]  ; 
Wps5sface[ [6,  4,  4,  2]]  = 

1  -  .089*Q2ps5sface[  [6,  4,  4,  2]  ]  -  .002  *  Q4ps5s£ace[  [6,  4,  4,  2  ]]; 
Wps5sfar[[6,  4,  4,  2] ]  = 

1  -  .089 * Q2ps5s£ar[  [6,  4,  4,  2]  ]  -  .002 * Q4ps5sfar[  [6,  4,  4,  2 ]]; 
Wps5sface[ [6,  4,  2,  1]]  = 

1  -  .083  *Q2ps5sface[  [6,  4,  2,  1]  ]  +  .007  *  Q4ps5sface[  [6,  4,  2,  1]  ]  ; 
Wps5sfar[[6,  4,  2,  1] ]  = 

1  -  .083  * Q2ps5sfar [  [6,  4,  2,  1]  ]  +  .007  *  Q4ps5sfar[  [6,  4,  2,  1]]; 
Wps5sface[ [4,  2,  2,  1]]  = 

1  +  .113  *Q2ps5sface[  [4,  2,  2,  1]  ]  +  .004  *  Q4ps5sface[  [4,  2,  2,  1]  ]  ; 
Wps5sfar[[4,  2,  2,  1]]  = 

1  +  .113  *  Q2ps5sfar[  [4,  2,  2,  1]  ]  +  .004  *  Q4ps5sfar[  [4,  2,  2,  1]  ]  ; 
VJps3sf ace  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
Wps3sfar  =  Table [1,  {i,  1,  6)#  {k#  1,  6},  {1,  1,  6},  {m,  1,  6}]; 
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Vlps3sface[  [6,  4,  4,  1]]  = 

1  +  .  061*Q2ps3sface[  [6,  4,  4,  1]  ]  -  .004  *  Q4ps3sface[  [6,  4,  4,  1]  ]  ; 
Wps3sfar[ [6,  4,  4,  1] ]  = 

1  +  .  061*  Q2ps3sfar[  [6,  4,  4,  1]  ]  -  .004  *  Q4ps3sfar[  [6,  4,  4,  1]]; 
Wps3sface[ [6,  4,  4,  2]]  = 

1  -  .  089*Q2ps3sface[  [6,  4,  4,  2]  ]  -  .002  *  Q4ps3sface[  [6,  4,  4,  2]]; 
Wps3sfar[[6,  4,  4,  2] ]  = 

1  -  .089  *  Q2ps3sfar[  [6,  4,  4,  2]  ]  -  .002  *  Q4ps3sfar[  [6,  4,  4,  2]]; 
Wps3sface[ [6,  4,  2,  1]]  = 

1  -  .083  *Q2ps3sface[  [6,  4,  2,  1]  ]  +  .007  *  Q4ps3sface[  [6,  4,  2,  1]  ]  ; 
Wps3sfar[[6,  4,  2,  1] ]  = 

1  -  .083  *Q2ps3sfar[  [6,  4,  2,  1]  ]  +  .007  *  Q4ps3s£ar[  [6,  4,  2,  1]]; 
Wps3sface[ [4,  2,  2,  1]]  = 

1  +  .113  *  Q2ps3sface[  [4,  2,  2,  1]  ]  +  .004  *  Q4ps3sface[  [4,  2,  2,  1]  ]  ; 
Wps3sfar[  [4,  2,  2,  1]  ]  = 

1  +  .113  *  Q2ps3sfar[  [4,  2,  2,  1]]  +  .004  *  Q4ps3sfar[  [4,  2,  2,  1]  ]  ; 
Wds3sf ace =  Table [1,  {1,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6)]; 
Wds3sfar  =  Table [1,  {i,  1,  6}#  {k,  1,  6>,  {1,  1#  6}#  {m,  1,  6}]; 
Wds3sface[ [6,  4,  4,  1] ]  = 

1  +  . 061*Q2ds3sface[  [6,  4,  4,  1]]  -  .004  *  Q4ds3sface[  [6,  4,  4,  1]  ]  ; 
Wds3sfar[[6,  4,  4,  1] ]  = 

1  *  .061  * Q2ds3sfar [  [6,  4,  4,  1]  ]  -  .004  *  Q4ds3sfar[  [6,  4,  4,  1]  ]; 
Wds3s£ace[ [6,  4,  4,  2] ]  = 

1  -  .089*Q2ds3s£ace[  [6,  4,  4,  2]  ]  -  .002  *  Q4ds3sface[  [6,  4,  4,  2]]; 
Wds3s£ar[[6,  4,  4,  2]]  = 

1  -  . 089  *  Q2ds3sfar [  [6,  4,  4,  2]  ]  -  .002  *  Q4ds3sfar[  [6,  4,  4,  2]]; 
Wds3s£ace[ [6,  4,  2,  1] ]  = 

1  -  .  083  *  Q2ds3sface[  [6,  4,  2,  1]]  +  .007  *  Q4ds3sface[  [6,  4,  2,  1]  ]  ; 
Wds3sfar[[6,  4,  2,1]]= 

1  -  .  083  *  Q2ds3sfar[  [6,  4,  2,  1]  ]  +  .007  *  Q4ds3sfar[  [6,  4,  2,  1]  ]  ; 
Wds3sface[ [4,  2,  2,  1]]  = 

1  +  .113  *  Q2ds3sface[  [4,  2,  2,  1]  ]  *  .004  *  Q4ds3s£ace[  [4,  2,  2,  1]  ]  ; 
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Wds3sfar[  [4,  2,  2,  1]]  = 

1  +  .113  *  Q2ds3sfar[  [4,  2,  2,  1]  ]  +  .004*  Q4ds3sfar[  [4,  2,  2,  1]  ]  ; 

Now,  the  correlation  factors  are  combined  to  make  the  one  for  the  five-sided 
detector  with  a  disk  source. 

Wds5sface  =  Table [1,  {i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 

Wds5sfar  =  Table [1,  (i,  1,  6},  {k,  1,  6},  {1,  1,  6},  {m,  1,  6}]; 

Wds5sface[  [6,  4,  4,  1]  ]  = 

1  +  . 061*Q2ds5sface[  [6,  4,  4,  1]]  -  .004  *  Q4ds5sface[  [6,  4,  4,  1]]; 
Wds5sfar  [  [6,  4,  4,  1]  ]  = 

1  +  .061  *  Q2ds5sfar[  [6,  4,  4,  1]  ]  -  .004*Q4ds5sfar[  [6,  4,  4,  1]  ]  ; 
Wds5sface[  [6,  4,  4,  2]  ]  = 

1  -  . 089  * Q2ds5sf ace [  [6,  4,  4,  2]  ]  -  .002  *  Q4ds5sface[  [6,  4,  4,  2]]; 
Wds5sfar[[6,  4,  4,  2]]  = 

1  -  .089*Q2ds5sfar[[6,  4,  4,  2]  ]  -  .002*Q4ds5sfar[  [6,  4,  4,  2]  ]  ; 
Wds5sface[  [6,  4,  2,  1]  ]  = 

1  -  . 083  *  Q2ds5sf ace [  [6,  4,  2,  1]  ]  +  .007  *  Q4ds5sface[  [6,  4,  2,  1]]; 
Wds5sfar  [  [6,  4,  2,  1]]  = 

1  -  .  083  *  Q2ds5sfar  [  [6,  4,  2,  1]  ]  +  .007  *Q4ds5sfar[  [6,  4,  2,  1]]; 
Wds5sface[  [4,  2,  2,  1]]  = 

1  +  .113  *  Q2ds5sface[  [4,  2,  2,  1]]  +  .  004  *  Q4ds5sface[  [4,  2,  2,  1]]; 
Wds5sfar [ [4,  2,  2,1]]= 

1  +  .  113  *Q2ds5sfar[  [4,  2,  2,  1]  ]  +  .004*  Q4ds5sfar[  [4,  2,  2,  1]]; 
wlist =  {"W[6, 4,4,1] ",  nW[6,4,4,2] ",  nW[6,4,2,l] ",  "W[4,2,2,l] "} ; 


The  tables  below  compare  the  correlation  factors  for  the  various  geometries. 
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TableFoxm[{{wlist  [  [1]  ]  ,  Wps3sfar[[6,  4,  4,  1]  ]  , 

WpsSsfar [  [6,  4,  4,  1]  ] ,  Wds3sfar[[6,  4,  4,  1]],  Wds5sfar[[6,  4,  4,  1]]}, 
{wlist  [  [2]  ]  ,  Wps3sfar [  [6,  4,  4,  2]], 

WpsSsfar [  [6,  4,  4,  2]  ]  ,  Wds3sfar[  [6,  4,  4,  2]  ] ,  Wds5sfar[  [6,  4,  4,  2]  ]  } , 
{wlist [[3]],  Wps3sfar[[6,  4,  2,  1]], 

WpsSsfar [  [6,  4,  2,  1]  ]  ,  Wds3sfar[[6,  4,  2,  1]  ]  ,  Wds5sfar[[6,  4,  2,  1]]}, 
{wlist  [  [4]  ]  ,  Wps3sfar[  [4,  2,  2,  1]  ] ,  WpsSsfar [  [4,  2,  2 ,  1]  ] , 

Wds3sfar[[4,  2,  2,  1]  ]  #  Wds5sfar[[4/  2,  2 ,  1]]}}#  TableHeadings -> 
{Hone,  { "Cascade" #  "WpsSsfar",  "WpsSsfar",  "Wds3sfar",  "WdsSsfar") } , 
TableAlignments  ->  Center] 


Cascade 
W[6#4#4,l] 
W[6/4/4/2] 
W[6,4f 2,1] 

W  [4 , 2 , 2 , 1] 


Wps3sfar 

1.0525 

0.918297 

0.929824 

1.1039 


WpsSsfar 

1.05248 

0.918327 

0.929846 

1.10389 


Wds3sfar 

1.05206 

0.919145 

0.930396 

1.10273 


WdsSsfar 

1.05204 

0.919175 

0.930418 

1.10272 


TableFormf  {  {wlist  [  [1]  ] ,  Wps3sface[  [6,  4,  4,  1]],  Wps5sface[  [6,  4,  4,  1]  ]  , 
Wds3sface[  [6,  4,  4,  1]],  Wds5sface[  [6,  4,  4,  1]]}, 

{wlist[  [2]  ]  ,  Wps3sface[  [6,  4,  4,  2]  ] ,  Wps5sface[  [6,  4,  4,  2]  ]  , 
Wds3sface[  [6,  4,  4,  2]],  Wds5sface[  [6,  4,  4,  2]]}, 

{wlist [  [3]  ]  ,  Wps3s face[  [6,  4,  2,  1]  ]  ,  WpsSsfacef  [6,  4,  2,  1]  ]  , 
Wds3sface[  [6,  4,  2,  1]  ] ,  Wds5sface[  [6,  4,  2,  1]]}, 

{wlist [  [4]  ]  ,  Wps3s face[  [4#  2,  2,  1]  ]  ,  Wps5sface[  [4,  2,  2,  1]  ] , 
Wds3sface[[4,  2,  2,  1]  ] ,  Wds5sface[  [4,  2,  2,  1]]}}, 

TableHeadings  ->  {None, 

{"Cascade",  "Wps3sface",  "WpsSsface",  "Wds3sface",  "WdsSsface"} } , 
TableAl igrxment s  ->  Center] 


Cascade 
W[6, 4, 4, 1] 
W [6 , 4 , 4, 2 ] 
W[6, 4,2,1] 
W[4 , 2 , 2 , 1] 


Wps3sface 

1.00405 

0.994496 

0.995169 

1.00459 


WpsSsface 

1.00398 

0.994563 

0.99524 

1.00458 


Wds3sface 

1.00423 

0.994286- 

0.99492 

1.0049 


WdsSsface 

1.00415 

0.994356 

0.994993 

1.0049 


The  following  method  determines  the  fraction  of  counts  underneath  an 
observed  energy  peak.  The  peak  represents  the  sum  of  direct  and  true 
coincidence  gamma  rays  depositing  the  given  energy.  The  true  activity  has 
been  normalized  to  one.  This  method  does  not  include  the  angular 
correlation  coefficient  W.  The  reference  is  (Andreev  and  others,  1972),  pg. 
1359. 


The  number  of  energy  levels  in  Mo-99  in  the  simplified  decay  scheme  is  six 
(five  plus  ground  state).  However  due  to  Mathematica ' s  automatic  indexing 
at  one,  m  =  6.  The  terms  are  decoupled  along  the  decay  chains  in  order  to 
calculate  their  contributions.  They  will  be  summed  at  the  end. 
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m  =  6; 

r  xMCl[  [i#  k]  ]  *  epfar[  [i,  k]  ]  .  ,  ,,  „  , , 

aMolfar  =  Table  [ - - - — — ^7^ - •  l1#  {k,  1#  m}]; 


aMolface =  Table [ 


l  +  a[[i,  k]] 
xMol[ [i,  k]  ]  *  epf ace [ [i,  k]  ] 


!  +  «[[!#  k]3 


r  (I#  1/  #  {k#  1#  a}  J  7 


MatrixForm[  aMolface] 7 
MatrixForm[  aMolfar] 7 


r  /  etface[[i,  k]  ]  \  , 

bMolf ace  =  Table fxMol[  [i,  k]  ]  *1 - : -  #  {1,  1,  m}#  {k,  1,  m}l 

L  1.  1  +  «[  [1,  k]  ]  ) 

r  (  etfar[[i,  k]  ]  ^  , 

bMolfar  =  Table  fxMOl[  [i,  k]  ]  *  1 - ; -  ,  {1#  1#  m},  {k,  1#  m>]  ; 

L  \  1  +  a[ [1,  k]  ]  ) 


MatrixForm[bMOlface] 7 
MatrixForm[bMolfar] 7 


SMolface  =  {0,  0,  0,  0,  0,  0}; 
£Molfar  a  {0,  0,  0,  0,  0,  0); 


Do[«Molface[  [i]  ]  =  /J[  [i]  ]  +  £MOlface[  [n]  ]  *bMolface[  [n,  i]  ] , 

n=i+l 

(i,  m,  1,  -1}] 

m 

Do[#Molfar[  [1]  ]  =  li  [  [i]  ]  +  i8MOlfar[  [n]  ]  *bMOlfar[  [n,  i]  ] ,  (i#  m,  1,  -1}] 

n=i+l 

MatrixFormf  SMolface] ; 

MatrixFormf  AMolfar]  ; 

MMOlface  =  { 1 ,  1,  1#  1,  1,  0}; 

MMolf  ar  =  { 1 ,  1,  1 ,  1,  1,  0}; 
nvn  =  m  -  1; 

k-1 

Do  [  MMolf  ace  [  [k]  ]  =  ^bMblfacef  [k,  j]  ]  *MMolface[  [  j]  ]  ,  {k#  2,  mm}] 

3  =  1 
k-l 

Do[MMblfar[  [k]  ]  =  ^bMblfarf  [k,  j]  ]  * /AMolfar  [  [  j]  ]  ,  (k,  2,  mm}] 


MatrixFormf  MMolf  ace]  ; 
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MatrixForm[>MMolfar] ; 

5‘tMolface  =  Table [0,  {i,  1,  m} ,  {j,  1,  m}]; 
tfMOlfar  =  Table [0#  {i,  1,  m} ,  {j,  1,  m}]; 

Do  [Do  [^OSolface  [  [i,  k]  ]  = 

i-l 

aMolface[[i,  k]  ]  +  ^  aMolface[[i,  j]]  *  jtMolf  ace  [  [  j ,  k]  ] ,  (k,  1,  i}], 

J=k+1 

{i,  2,  m}] 

Do[Do[j"tMolfar  [  [i,  k]  ]  = 

i-l 

aMolfar[[i,  k]  ]  +  ^  aMolfar[[i,  j]  ]  * 5(Molfar[  [  j,  k]  ] ,  {k,  1,  i}], 

j=k+l 

(i,  2,  m}] 

MatrixFom[^MOl£ace] ; 

MatrixForm[j!fMolfar]  ; 

.SMolface  =  Table  [ SMolface  [  [i]  ]  *  5TMolf ace [  [i,  k]  ]  *  yMMolf ace  [  [k]  ] , 

{i,  1,  m},  (k#  1,  m>] ; 

vSMolfar  = 

Table  [SMOlf ar  [  [i]  ]  *,flMOlfar[  [i,  k]  ]  *XMolfar[  [k]  ]  ,  (i,  1,  m},  {k,  1,  m}]; 
MatrixForm[5Molface] ; 

MatrixForm[  vSMolfar] ; 

The  following  is  the  contribution  from  the  second,  decoupled  Mo-99  decay 
chain. 

£Mo2face  =  {0,  0,  0,  0,  0,  0}; 

SMo2far =  {0,  0,  0,  0,  0,  0); 

,?IMo2face  =  Table [0,  {i,  1,  m},  {j,  1,  m}]  ; 
jmo2£ar  -  Table [0,  (i,  1,  m},  {j,  1,  m}]; 

MMo2face  =  {0,  0,  0,  0,  0,  0}; 

,MMo2far  =  {0,  0,  0,  0,  0,  0}; 

vSMo2face  =  Table [0,  {i,  1,  m},  {k,  1,  m}]  ; 

vSMo2far  =  Table [0,  {i,  1,  m},  {k,  1,  m}]; 
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/  (  etface[ [6,  5]  ]  ^  ^ 

SMo2face[  [5]  ]  =  ^j3  [  [5]  ]  +/3[[6]]  *xMb2[[6,  5]  ]  *  ^1-  -jj 


jtMo2face[  [5#  3]] 


xMo2 [  [5,  3]  ]  *  epface[  [5,  3]  ] 


(  xMb2[ [5/  3] ]  *  ep 
[  1  +  a[ [5, 


E [5,  3]] 


MMo2f ace [  [3]  ]  =  (1)  ; 


5Mo2face [ [5 


,  3]  ]  =  (, 


>3[  [5]  ]  +  /i[  [6]  ]  *  xMo2  [  [6,  5]]  * 


xMo2  [  [5,  3]  ]  *  epfacef  [5,  3]] 


(  xMo2 [ [5,  3] ] *  ep 
l  1 +  a[ [5, 


[[5,  3]] 


)  *  (1)  s 


L  _  efface [[6,  S]  ]  \  \ 
{  ~  1  +  a[ [6,  5]]  )) 


(  (  etfar[ [6,  5]  ]  \  \ 

SM02far[[5]]  =  ^/3[[5]]  + /3  [  [6]  ]  *  xMfc>2  [  [6,  5]  ]  *  ^1  -  — __JJ; 

rre  „„  (  xMo2[  [5,  3]  ]  *  epfar[  [5#  3]  ]  \ 

^tMo2far  [  [5,  3]  ]  =  -  ; 

[  l  +  e[[5,  3]]  ) 


xMo2  [  [5,  3]  ]  *  epfar[  [5,  3]  ] 
l  +  a[[5,  3]]  “ 


MMo2far[  [3]]  =  (1)  ; 


(  (  etfarf [6,  5]  ]  ^ \ 

sSM02far[[5/  3]]  =  ^[[5]]  + /3  [  [6]  ]  *  xMo2  [  [6,  5]  ]  *  ^1  -  — jj 


xMo2  [  [5,  3]]  *  epfar [  [5,  3]] 


(  xMo2 [ [5,  3 

{  TT 


a[[5.  3]] 


)  *  (i); 


iSMb2face[[6]]  =  03  [[6]]); 


5!Mo2face  [  [6,  3]  ] 


xMo2[  [6,  3]  ]  *  epf ace  [  [6,  3]  ] 
1  +  a  [  [6,  3]] 


xMo2[[5,  3]]  *  epf  ace  [  [5,  3]]  xMb2[[6,  5]]  *epface[[6,  5]] 

1  +  a[  [5/  3]]  *  l  +  a[[6,  5]] 


AtMb2£ace[  [3]  ]  =  (1)  ; 


5Mo2face[  [6,  3]]  =  (/3[[6]]>  * 


xMo2  [  [6,  3]  ]  *  epf  ace  [  [6,  3]  ] 
l  +  a[[6,  3]] 


xMo2  [  [5,  3]]  *  epf  ace  [  [5,  3]]  xMfc>2[[6,  5]]  *epface[[6,  5]] 

l  +  a[[5,  3]]  *  l  +  a[[6,  5]] 


SMo2far [  [6]  ]  =  (/3[[6]]); 


5fMo2far  [  [6 


xMo2 [ [ 6 ,  3]]  *  epfar [ [6,  3]] 


'  _  (  xMo2  [  [ 6 #  3]  j  *  ei 

'  J j  ”  l  1  +  a[ [6, 


xMo2  [  [5,  3]  ]  *  epfar  [  [5,  3]  ]  xMo2[  [6,  5]  ]  *  epfar  [  [6,  5]  ] 


1  +  ®  [  [5/  3]] 


l+a[[6#  5]] 


,MMo2far[  [3]  ]  =  (1)  ; 
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SMo2far[[6,  3]  ]  =  (0 [ [6] ] )  * 


xMo2  [  [6,  3]  ]  *  epf ar [  [6,  3]  ] 
l  +  <*[[6,  3]] 


xMo2  [  [5,  3]]  *epfar[[5,  3]]  xM&2[[6,  5]]  *epfar[[6,  5]] 

- * - 


(i); 

5TMo2face[  [6,  5]  ]  =  | 


1  +  fl[  [5#  3]  ]  1  +  a[ [6,  5]  ] 

xMo2 [ [6,  5]  ]  * epf ace [ [6,  5]] 


1  +  a[  [6,  5]] 

etfacef [5,  3]  ] 


)' 


(  etface[ [5,  3]  ]  ^ 

MM02face[[5]]  =  xM£>2[[5,  3]  ]  *  1 - - - — — -  ; 

V  l  +  e[  [5,  3]  ]  I 

xM02[[6,  5]  ]  * epface[ [6,  5]] 


5Mo2face[  [6/  5]]  =  (/3[[6]])* 


(■ 


l  +  «[[6,  5]] 


) 


I  (  etfacef [5,  3]  ]  \  \ 

|xMo2[ [5,  3„. 

xMo2  [  [6,  5]]  *  ep£ar[  [6,  5]] 


MMo2far [ 


[6,  5]]  =  (- 


1  +  «[[6,  5]] 

etfar[[5,  3]] 


)• 


(  etfar[ [5,  3]  ]  ^ 

AUto2far[[5]]  =  xMo2[[5,  3]  ]  *  1-  - - rrg  —  ; 

V  l  +  a[[5,  3]]  ) 

xMo2  [  [6#  5]]  *  epfar[  [6,  5]] 


5Mo2far [  [6,  5]]  =  (JS[[6]])  * 


(■ 


l  +  «[[6,  5]] 


The  following  is  the  contribution  from  the  third,  decoupled  Tc-99m  decay 
chain.  Due  to  the  near  zero  detection  efficiency  of  a  2.1726  keV  gamma  ray, 
the  vSTcl[[3,2]]  contribution  is  negligible. 

„„  „  /3[[6]]  *xMb2[[6,  3]] 

/3Tcl  =  - -  + 


l+a[[6,  3]] 
/3[  [5]  ]  *xMo2[[5,  3]] 


1  +  a [  [5#  3]] 

STclface  =  {0,  0,  0,  0 ,  0,  0}; 


L  *[[6]]  *xHo2[[6,  5]]  ^  nrr„ 

*  1+ -  +  /3  [  [3] 

[  1  +  a[ [6,  5]]  ) 


STclfar  =  {0,  0,  0,  0,  0,  0}; 

MTclface =  Table [0,  (i,  1,  m},  {j,  1,  m}]; 
STclfar  =  Table [0,  {i,  1,  m},  {j,  1,  m}]; 
AlTclface  =  {0,  0,  0,  0,  0,  0}; 


,MTclfar  =  {0,  0,  0,  0,  0,  0}; 

£Tclface  =  Table [0,  {i,  1,  m},  {k,  1,  m}] 
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£Tclfar  *  Table [0,  {i,  1,  m},  {k,  1,  m}]; 
£Tclface[ [2] ]  =  (/3Tcl*xTcl[  [3,  2]]); 

xTcl [  [2,  1]]  *epface[[2,  1]  ] 


■SlTclf  ace  [ 


[2,  !]]=(- 


1**112.  1]] 


)' 


yVITclf  ace [ [ 1] ]  =  (1) ; 
5Tclface[ [2,  1]]  = 


(/3Tcl*xTcl[ 


[3#  2]]) * 

i 


xTcl[  [2,  1]  ]  *  epface[  [2,  1]  ] 


1  +  * [ [2»  1]] 
J8Tclfar[  [2]  ]  =  (/3Tcl  *  xTcl  [  [3/  2]]); 

xTcl[ [2,  1]  ]  *  epfar[ [2,  1]  ] 


)  *  (i); 


j(Tclfar[ 


[2,  !]]=(■ 


1*  *[  [2#  1]] 


)' 


MTclfar  [  [1]  ]  =  (1); 


STclfar[[2#  1]  ]  =  (/3Tcl*xTcl[ 


[3#  2] ] )  *  | 


xTcl[  [2,  1]]  *cpfar[[2,  1]  ] 


l  +  a[[2,  1]] 


)  *  (i); 


£Tclface[ [3] ]  =  (£Tcl)  ; 

xTcl[  [3,  1]]  *epface[[3,  1]  ] 


#Tclf ace [ 


[3,  !]]=(■ 


-STclface [  [3,  1]  ]  =  (/3Tcl)  * 


l  +  «[[3,  1]]  ) 

xTcl  [  [3/  1]  ]  *  epf ace [  [3,  1]  ] 
1  +  «[  [3#  1]] 


)  *  (1)  / 


STclfar[  [3]  ]  =  (/3Tcl)  ; 

xTcl[ [3,  1]  ]  *  ep£ar[ [3,  1]  ] 


Si  Tclfar  [ 


[3,  !]]=(■ 


5Tclfar[  [3,  1]]  =  (/3Tcl)  * 


1 +  *[  [3#  1]  ]  ) 

xTcl [ [3,  1]  ]  *  epf ar [ [3,  1]  ] 
l  +  e[[3,  1]] 


)  *  (i) ; 


The  following  combines  all  the  contributions  from  the  decoupled  decay  chains . 
Note:  It  is  assumed  that  Tc-99m  is  in  secular  equilibrium  with  Mo-99;  i.e., 
their  activities  are  equal . 


vSfar  =  vSTclfar  +  vSMolf  ar  +  5Mfc>2f  ar; 
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Mat  rixForm  [  5  far] 

{  0 

0 

0 

0 

0 

0 

0.00976995 

0 

0 

0 

0 

0 

3 . 4602  x  10~6 

0 

0 

0 

0 

0 

0.000645766 

0.0000274028 

0 

0 

0 

0 

0 

0 

0.0000742688 

0 

0 

0 

,  2 . 23977  x  10“6 

9 . 50439  x  10"8 

0.000140289 

0.000409061 

9 . 02149  x  10"7 

0, 

Sface  =  STclf ace  +  SMolface  +  5Mo2face; 

Mat rixForm  [  Sf  ace] 

(  0 

0 

0 

0 

0 

0  ^ 

0.185865 

0 

0 

0 

0 

0 

0.0000666706 

0 

0 

0 

0 

0 

0.00998895 

0.000275118 

0 

0 

0 

0 

0 

0 

0.00133364 

0 

0 

0 

,  0.000755717 

0.0000208141 

0.0024665  0. 

.00521012  0. 

0000125654 

0; 

The  following  is  to  show  an  estimate  of  the  uncorrected  values  ignoring 
summing-in  and  -out  effects. 

iSunface  =  Table [0,  {i,  1,  m} ,  {k,  1,  m}]; 

Sunfar =  Table [0,  {i,  1,  m},  {k,  1,  m}]; 

x  =  xMol  +  xMo2  +  xTcl; 

x[[2,  1]]  =  1; 

Do[ 

m 

Do[#unface[  [i#  k]  ]  =  /3  [  [i]  ]  +  ^  Sunface[  [n,  i]  ]  *  x  [  [n,  i]  ]  #  {k,  1,  mm}  ]  # 

n=i+l 

{i#  m,  1,  -1}] 

m 

Do[Do[2unfar[  [i,  k]  ]  =  fi [  [i]  ]  +  ^  Sunfar [  [n,  1]  ]  *x[  [n,  i]  ] ,  {k,  1,  mm}] , 

n=i+l 

(i#  m#  1,  -1}] 


tfunf ace  =  Table [0#  {1,  1,  m},  {j,  1,  m}]; 
tfunfar  =  Table [0,  {1,  1,  m),  {j,  1,  m}]; 

_  r_  r_  «  „•  v,,  x[[i,  k]]  *epface[[i,  k]]  ,  _  , 

Do[Do[jftmface[  [i,  k]  ]  =  - - -  - ,  {k,  1,  x}]#  {x,  2,  m}] 

I  L  l  +  a[[x,  k]  ]  J  J 

_  r_  r  _  *  rr-  VI 1  xt[i»  k]  ]  *epfar[[i,  fc]  ]  ,  , 

Do[Do[^unfar[  [l,  k]  ]  =  - - -  - ,  {k#  1,  x>],  (x#  2,  m}] 

II  1 +  a[[x,  k]]  1  1 
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Alunface  =  Table  [1,  (i#  1 ,  m}#  {k,  1,  m}]  ; 

Munfax  =  Table [1,  [±r  1 ,  m}#  {k#  1#  m}]; 

Sunface  =  Table [Sunf ace [  [i,  k]  ]  *#unface[  [i,  k]  ]  *  Munface[  [i,  k]  ] , 

{ i /  1#  m}#  {k#  1#  m}]  ; 

Sunfacelist  = 

{vSunface [  [6,  3]  ]  ,  ^Sunface[  [6,  4]  ]  ,  Sunface[  [6,  5]  ]  ,  ^Sunface[  [5,  3]  ]  # 
Sunface[  [4,  1]  ]  ,  Sunface[  [3/  1]  ]  ,  *Sunface[  [2,  1]  ]  ,  Sunface[  [4,  2]  ]  }; 

sSunfar  =  Table[£unfar  [  [i,  k]  ]  *#unfar[  [i,  k]  ]  * Mun£ar[  [i#  k]  ]  # 

{i,  1#  m}#  {k,  1,  m}]  ; 

5unfarl±st  = 

{Sunfar  [  [6,  3]  ] ,  Sunfar[  [6,  4]  ]  ,  Sunfar[  [6,  5]  ]  ,  Sunfar[  [5,  3]  ]  , 
Sunfar[  [4#  1]  ]  ,  Su nfar[  [3#  1]  ]  ,  Sunfar[  [2,  1]  ] ,  Sunfar[  [4,  2]  ]  }; 

Mat  rixForm  [  5uxif  ace] 

/  0  0 
0.188545  0 

0.0000666917  0 

0.0124271  0.000478934 

0  0 


Mat  rixForm  [  Sunfar] 

/  0  0 

0.00978103:  0 

3 . 46129  x  10~6  0 

0.000652984  0.00002813 

0  0 

,  0  0 

MatrixForm[ Evaluate  [Sf  ace  /  Sunface]  ]  ; 

Ratlofacelist  = 

{Evaluate  [Sf  ace /  Svnf  ace]  [[6,  3]],  Evaluate  [Sf  ace /Sunf  ace]  [[6#  4]]# 

Evaluate  [Sf  ace  /  Sunface]  [  [6,  5]  ] ,  Evaluate  [Sf  ace  /  Sunface]  [  [5,  3]  ] , 

Evaluate  [  Sf  ace  /Sunface]  [  [4,  1]]  ,  Evaluate  [Sf  ace  /Sunf  ace]  [  [3,  1]  ] , 

Evaluate  [Sf  ace  /  Sunface]  [  [2,  1]  ]  #  Evaluate  [Sf  ace  /  Sunface]  [  [4,  2]  ] } ; 

Mat  rixForm  [  Evaluate  [Sfar  /  sSunf  ar]  ]  ; 


0 

0 

0 

0 

,00133778 

,00246469 


0.00731246  0.0000163954 


0  \ 
0 
0 
0 
0 

0  J 


0 

0 

0 

0 

0.0000742816 

0.000140284 


0.000415519  9.14004x  10" 


0  \ 
0 

0 

0 

0 

0  J 
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Ratiofarlist  = 

{Evaluate [Star  / Sunf ar]  [  [6,  3]  ] ,  Evaluate [Sfar /Sunfar]  [  [6,  4]  ] , 

Evaluate  [Sfar  /  vSunfar]  [  [6,  5]  ]  #  Evaluate[5far  /  Sunfar]  [[5,  3]  ]  # 

Evaluate  [Star  /  vSunfar]  [  [4,  1]  ]  #  Evaluate  [vSfar  /  vSunfar]  [  [3,  1]  ] , 

Evaluate  [vSfar /vSunfar]  [  [2,  1]  ]  ,  Evaluate [Sfar/ vSunfar]  [  [4,  2]  ]  }; 


MatrixFona[  Evaluate  [ 


5  face  -  vSunface 
vSface 


.  r  £  far  -  Sunf  ar  . . 

Mat rixForm  [  Evaluate  [ - j  J  ; 


The  tables  below  compare  the  corrected  and  uncorrected  peak  count  fraction-- 
the  fraction  of  decays  that  result  in  gamma  rays  depositing  their  full 
energy  in  the  detector  crystal  and  causing  a  count  in  the  full  energy  peak. 


£facelist  =  {Sface[ [6,  3]  ]  ,  Sface[ [6,  4]  ]  ,  Sface[ [6,  5]  ]  ,  Sface[ [5#  3]  ] , 
*Sface[  [4,  1]],  Sface[[3,  1]],  *Sface[[2,  1]],  Sface[[4,  2]]}; 

Sfarlist  =  {Sfar[  [6,  3]  ]  ,  Sfar[  [6,  4]  ]  ,  Sfar[  [6,  5]  ]  ,  Sfar[  [5#  3]  ]  / 
Sfar[[4,  1]],  Sfar[[3,  1]],  *Sfar[  [2,  1]],  Sfar[[4,  2]]}; 

TableForm [ Table [  {Mo99gairanas  [  [i]  ]  , 

*Sunfarlist[  [i]  ]  ,  Sfarlist [ [i]  ]  ,  Ratiofarlist  [  [i]  ]  }#  {i#  1,  8}] , 
TableHeadings  ->  (None,  {"Gamma  (Mev)  " , 

"Far,  Uncrtd  Peak  Prob",  "Far,  Crtd  Peak  Prob",  "Ratio"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Far,  Uncrtd  Peak  Prob 

Far,  Crtd  Peak  Prob 

Ratio 

0.777921 

0.000140284 

0.000140289 

1.00004 

0.7395 

0.000415519 

0.000409061 

0.984457 

0.411491 

9 . 14004  x  10'7 

9 . 02149  x  10“7 

0.987029 

0.366421 

0.0000742816 

0.0000742688 

0.999827 

0.181068 

0.000652984 

0.000645766 

0.988946 

0.142675 

3 . 46129  x  10”6 

3 . 4602  x  10“€ 

0.999684 

0.140511 

0.00978103 

0.00976995 

0.998868 

0.0405845 

0.00002813 

0.0000274028 

0.97415 
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TableForm[Table[{Mb99gammas[  [i]  ] , 

<Sunf acelist  [  [i]  ] ,  Sfacelist[  [i]  ]  ,  Ratiofacelist  [  [i]  ]  },  {i,  1 ,  8}] , 
TableHeadings  ->  {None,  {  "Gamma  (Mev)  "  , 

"Face,  Uncrtd  Peak  Prob",  "Face,  Crtd  Peak  Prob",  "Ratio"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Face,  Uncrtd  Peak  Prob 

Face,  Crtd  Peak  Prob 

Ratio 

0.777921 

0.00246469 

0.0024665 

1.00073 

0.7395 

0.00731246 

0.00521012 

0.712499 

0.411491 

0.0000163954 

0.0000125654 

0.7664 

0.366421 

0.00133778 

0.00133364 

0.996905 

0.181068 

0.0124271 

0.00998895 

0.803802 

0.142675 

0.0000666917 

0.0000666706 

0.999684 

0.140511 

0.188545 

0.185865 

0.985784 

0.0405845 

0.000478934 

0.000275118 

0.574438 

AFTACepdsSsface = 

Table [ epdsSsfacelist [ [i] ]  *  Ratiofacelist [  [i]  ] ,  {i,  1,  8}]; 

The  table  below  shows  the  adjusted  face  peak  efficiency  that  AFTAC  could  use 
in  its  ananlysis. 

TableForm [ Table [  { Mb9 9 gammas [  [i]  ] ,  epdsSsf acelist  [  [i]  ]  , 

Ratiofacelist [  [i]  ] ,  AFTACepds5sf ace [  [i]  ]  } ,  {i,  1,  8}], 


TableHeadings 

->  {None,  {  "Gamma 

(Mfcv)", 

"Face  Peak  Eff . "Ratio",  " 
TableAlignments  ->  Center] 

Adjusted  Face 

Peak  Eff,"}}, 

Gamma  (Mev) 

Face  Peak  Eff. 

Ratio 

Adjusted  Face  Peak  Eff 

0.777921 

0.0578365 

1.00073 

0.0578788 

0.7395 

0.0604324 

0.712499 

0.043058 

0.411491 

0.100272 

0.7664 

0.0768482 

0.366421 

0.110815 

0.996905 

0.110472 

0.181068 

0.199408 

0.803802 

0.160284 

0.142675 

0.227668 

0.999684 

0.227596 

0.140511 

0.22907 

0.985784 

0.225813 

0.0405845 

0.0394235 

0.574438 

0.0226463 

The  following  section  is  the  error  propagation  of  the  correction  factors. 
Standard  deviations  come  from  (Peker,  1994),  pg.  40-41  unless  otherwise 
noted. 

cjct  —  { {0,  0,  0,  0,  0,  0},  {0*003,  0,  0,  0,  0,  0}, 

{3.,  0,  0,  0,  0,  0},  (0*007,  0*2,  0,  0,  0,  0},  {0,  0,  0*0010,  0,  0,  0}, 
{0,  0,  0.00008,  0.0004,  0.001,  0}}; 
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CTl  = 


[  [6]  ]  *  xMGl[  [6,  4]] 


*{{0,  0,  0,  0,  0,  0}#  {0.0019,  0,  0,  0,  0,  0}, 


1  +  ®[ [6#  4]] 

{0.00002,  0,  0,  0,  0,  0},  {0.006,  0.0027,  0,  0,  0,  0}, 

{0,  0,  0.0011,  0,  0,  0),  {0,  0,  0.004,  0.01,  0.00005,  0}}; 


aepfar  =  {{0,  0,  0,  0,  0,  0},  {0.015*  epds5sfarlist  [  [7]  ] ,  0,  0,  0,  0,  0}, 
{0.015  *  epds5sf arlist [  [6]  ]  ,  0,  0,  0,  0,  0), 

{0.015*  epds5sfarllst  [  [5]  ]  ,  0.015 *  epds5sf arlist [  [8]  ]  ,  0,  0,  0,  0}, 
{0,  0,  0.015*  epds5sf arlist [  [4]  ]  ,  0,  0,  0}, 

{0,  0,  0.015*  epds5sf arlist [  [1]  ] ,  0.015*  epds5sf arlist  [  [2]  ]  , 

0 . 015  *  epds5sfarlist  [  [3]  ]  ,  0}}; 


The  following  tolerances  in  the  branch  ratios  are  derived  standard 
deviations  from  the  gamma  ray  intensity.  The  error  from  angular  correlation 
is  neglected  due  to  its  small  effect  on  the  resulting  correction  factors. 

The  deviation  of  the  total  efficiency  is  not  explicity  known,  but  it  is  on 
the  order  of  1%  to  2%  higher  than  that  of  the  peak  efficiency.  Thus  a 
constant  3%  is  used. 


oetps5sfar=  {{0,  0,  0,  0,  0,  0},  {0.03  *  etps5sf arlist  [  [7]  ]  ,  0,  0,  0,  0,  0}, 
{0.03*  etps5sf arlist  [  [6]  ] ,  0,  0,  0,  0,  0}, 

{0.03*  etps5sf arlist [  [5]  ] ,  0.03 *  etps5sf arlist [  [8]  ] ,  0,  0,  0,  0},  {0,  0, 
0.03*  etps5sfarlist  [  [4]  ]  ,  0,  0,  0},  {0,  0,  0.03  *  etps5sfarlist[  [1]  ] , 
0.03  *  ctps5sf arlist  [  [2]  ] ,  0.03*  etps5sfarlist[  [3]  ]  ,  0}}; 

oetps3sfar  =  {{0,  0,  0,  0,  0,  0),  {0.03  *  etps3sfarlist  [  [7]  ]  ,  0,  0,  0,  0,  0}, 
{0.03  *  etps3sf arlist [  [6]  ]  ,  0,  0,  0,  0,  0}, 

{0.03  *  etps3sf arlist [  [5]  ] ,  0.03  *  etps3sfarlist  [  [8]  ] ,  0,  0,  0,  0},  {0,  0, 
0.03  *  etps3sf arlist [  [4]  ] ,  0,  0,  0},  {0,  0,  0.03  *  etps3sf arlist [  [1]  ] , 
0.03  *  etps3sf arlist [  [2]  ] ,  0.03  *  etps3sfarlist [  [3]  ] ,  0}}; 

<7£tds3sfar  =  {{0,  0,  0,  0,  0,  0},  {0.03  *  etds3sf arlist [  [7]  ]  ,  0,  0,  0,  0,  0}, 
{0.03*  etds3sf arlist  [  [6]  ] ,  0,  0,  0,  0,  0}, 

{0.03*  etds3sf arlist  [  [5]  ] ,  0.03  *  etds3sf arlist  [  [8]  ] ,  0,  0,  0,  0},  {0,  0, 
0.03  *  £tds3sf arlist  [  [4]  ] ,  0,  0,  0),  {0,  0,  0.03  *  etds3sf arlist [  [1]  ]  , 
0.03  *  £tds3sf arlist  [  [2]  ]  ,  0.03  *  etds3sfarlist  [  [3]  ] ,  0}}; 

act far  =  Table [0,  {i,  1,  m},  {k,  1,  m}]; 
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cretfar  [  [2,  1]]  = 


( (  etds3sf arlist [ [7]  ] 


*  CT£tps5sfar [ [2,  1]  ]2  + 


etps3sf arlist [ [7] ] 

( (etps5sf arlist  [  [7]  ]  *  e tds3sf arlist [  [7]  ] )  /  etps3s£ arlist [  [7]  ] 2 )  A2  * 
aetps3sfar[  [2,  1]]2  + 

(  etps5sf arlist [ [7]  ]  \2 


etps3sf arlist [ [7] ] 


*  cretds3sfar  [ 


[2,  l]]2 

i 


cretfar  [  [3,  1]] 


( (  £tds3sf arlist [ [6] ] 


* CT£tps5sfar[ [3,  1]]2+ 


^  \  etps3sf arlist [ [6] ] 

( ( £tps5sf arlist  [  [6]  ]  *  etds3sfarlist  [  [6]  ] )  /  etps3s£arlist  [  [6]  ]2)  A2  * 
CT£tps3sfar [ [3,  1]  ] 2  + 


£tps5sf arlist [ [6] ] 
£tps3sf arlist [ [€] ] 


* CT£tds3sfar[ [3,  1]]' 


1 

~2' 

cr£tfar[  [4,  1]  ] 


[  (  etds3sf arlist [ [5]  ] 


f)‘ 


*aetps5sfar[  [4#  1]  ]2  + 


{  l  e tps3sf arlist [ [5] ; 

( (e tpsSsf arlist  [  [5]  ]  *  etds3sf arlist [  [5]  ] )  /  etps3sfarlist  [  [5]  ]2)  A2* 
<7£tps3sfar [  [A,  1]  ] 2  + 

/  EtpsSsf arlist [ [5]  ]  v  2 


£ tps3sf arlist [ [5] 


2 V 

]  i 


*  a£tds3sfar [ [4,  1]  ]  ‘ 


2  A 


1 

~2 


a£tfar [ [4r  2]  ]  = 


(  (  £tds3sfarlist[ [8]  ] 


*  CT£tps5sfar[ [47  2]  ]2  + 


[  v  etps3sf arlist [ [8] ] 

( (£  tpsSsf  arlist  [  [8]  ]  *  £tds3sf  arlist  [  [8]  ] )  /  etps3sfarlist  [  [8]  ]2)  A2  * 
aetps3sfar [ [4#  2]  ] 2  + 


e tpsSsf arlist [ [8]  ] 
£ tps3sf arlist [ [8] ] 


*  <7£tds3sfar  [  [4#  2]]' 


1 

1 
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ae tfar [ 


[5,  3]]  = 


etds3sf arlist [ [4] ] 


f)‘ 


* CT£tps5sfar[ [5#  3]  ]  + 


etps3sfarlist [ [4] 

( (etpsSsf arlist [ [4] ]  *  etds3sf arlist [  [4]  ] )  /  etps3sfarlist[ [4] ]2)  *2* 
cretps3sfar[ [5,  3]  ]2  + 


e tps5sf arlist [ [4] ] 
etps3sf arlist [ [4] 


K 


* oetds3sfar [ [5,  3]]' 


1 

~2* 

ae tfar [ 


[6,  3]]  = 


etds3sf arlist [ [3] ] 


*  aetps5sfar[  [6,  3]]2  + 


etps3sf arlist [ [3]  ] 

((etps5sf arlist [[3]]  *  etds3sfarlist [  [3]  ] )  /  etps3sfarlist[  [3]  ]2)  A2* 
aetps3sfar[ [6,  3]  ]2  + 

/  etps5s£arlist [ [3] ]  '  2 


etps3sf arlist [ [3] ] 


* CT£tds3sfar[ [6,  3]]" 


1 

~2 


ae tfar [ 


[6.  «]]  =  |( 


e tds3sf arlist [ [2] ] 


*  aetps5sfar[ [ 6 ,  4]  ]2  + 


e tps3sf arlist [ [2] ] 

( (etpsSsf arlist  [  [2]  ]  *  etds3sfarlist  [  [2]  ] )  /  etps3sfarlist[  [2]  ]2)  A2* 
aetps3sfar[ [6#  4]  ]2  + 


etpsSsf arlist [ [2] ] 
etps3sf arlist [ [2] ] 


* ae tds3sfar[ [6,  4]]' 


1 

aetfar [ 


[6,  5]]  = 


etds3sf arlist [ [1] ] 


*  cretps5sfar[  [6,  5]  ]2  + 


etps3sf arlist [ [ 1] ] 

( ( etpsSsf  arlist  [  [1]  ]  *  e  tds3sf  arlist  [  [1]  ] )  /  etps3sf  arlist  [  [  1]  ] 2 )  A2  * 
aetps3sfar[ [6,  5]  ]2  + 

(  etps5sf arlist [ [1]  ]  ' 2 


etps3sf arlist [ [1] ] 


*  cretds3sfar[  [6,  5]]' 


1 

~2 


ax  =  Table  [0,  {i,  1,  m}  ,  {k,  1,  m}  ]  ; 

ax  [  [2,  1]]  =  oi[  [2,  1]]  *xTcl[[2,  1]]  * 

/  {  /J8[[6]]  * xMo2 [  [6,  3]] 

(1  +  «[  [2#  1]])/  lxTcl[  [3/  2]  ]  *  xTcl[  [2,  1]  ]  *  I  - — - —  + 


/3[[5]]  *xMo2[[5,  3]]  /  /B  [  [6]  ]  *  xMo2  [  [6,  5]  ] 


l  +  ®[[5,  3]] 


*  11  + 


1  *«[[6,  5]] 


l+a[[6,  3]] 

)  +/3[[3]]))| 
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ox  [  [3,  1]  ]  =  oi[[3,  1]]  *xTcl[[3,  1]]  * 

. . n  . .  /  j3  [  [6]  ]  *xMb2[[6,  3]] 


(1 +  *[ [3 


.!]])/( 


xTcl[ [3,  1]]  * 


>3[  [5]  ]  *  xMo2  [  [5,  3]] 
l  +  <*[[5,  3]] 


,,  (  P  [  [®]  ]  *  xMo2  [  [6#  3]  ] 

]  *  -  4 

[  1  +  o[  [6,  3]  ] 

L  [  /3 [  [6]  ]  *xMQ2[[6,  5]]  \ 

\*  1  4  «[  [6,  5]  ]  J 


+  £  [  [3]  ] 


ax[[ 4,  2]]  =  ai[[4,  2]]  *xMol[[4,  2]]  * 

. /( .  /  /3[[6]]  *xMOl[[6,  4]] 


(l+fl[[4 


,  2]  ] )  /  ( 


xMol[ [4,  2]]  * 


(  p  [  [6] ]  *  xMol 

l  l  +  a[[6. 


[[6/  4]] 


ox  [  [4,  1]]  =  oi  [  [4,  1]]  *  xMol[  [4,  1]]  * 

/(  (  $[  [6]  ]  * xMOl[  [6,  4]  ] 

1,],/(*1[|4.  !]].( -  tj] - 


ox[  [5#  3]]  =  oi [  [5,  3]]  *  xMo2 [  [5#  3]]  * 

(l  +  «[[5,  3]])  j  |xMo2  [  [5#  3]  ]  *  f/3[[5]]  + 


/3  [  [6]  ]  *xMG2[[6,  5]] 
l  +  a[[6,  5]] 


ox [ [6/  3]]  = 

/  (  /  /3  [  [6]  ]  *  xMo2  [  [6,  3]] 

ai[[6,  3]  ]  *  xMo2  [  [6,  3]]  /  (xMb2[[6,  3]  ]  *  ^ - i  +  a[[6,  3]] - 


ox [ [6,  4]]  = 


II  //3[[6]]  *  xMbl[  [6,  4]] 

ai[  [6,  4]  ]  *  xMolf  [6,  4]]  /  (xMbl[[6,  4]  ]  *  ^ ^  4]] - 


ox[[6,  5]]  = 
ai[ [6,  5]  ]  *  xMo2 [ [ 6 


Mat  r ixForm  [  crx  ]  ; 


'511/( 


xMo2[  [6,  5]  ]  * 


J3  [  [6]  ]  *xM02[[6,  5]] 
l  +  a[[6,  5]] 


The  following  section  computes  the  error  in  the  major  terms  S,  3\,  and  M  of 
the  formula  for  <S. 


a2SMolfar  =  Table [0,  {i,  1,  m},  {k,  1,  m}]; 
a2SMo2far  =  Table [0,  {i,  1,  m},  {k,  1,  m}]; 
a2STclfar  =  Table [0,  {i,  1,  m},  (k,  1,  m}]; 

i  {  I  et£ar[  [6,  5]  ]  \\ 

a2SMo2far[  [5,  3]J  =ox[[6,  5]]2*  /3[[6]]  *  1-  - -ii— —LL  *2  + 

V  V  1 4 a[ [6,  5]  ]  l ) 

2  (  {  etfart [6,  5]]  \\ 

aa[[6,  5]  ] 2  *  /3[[6]]  *xMb2[[6,  5]]  *  - - - *2  + 

[  [  (l4a[[6,  5]])2  JJ 

aetfar[  [6,  5]]2*  (J3 [  [6]  ]  *xMo2[[6,  5]])  A2  ; 
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,  (  {  etfar[  [4,  2]  ]  \\ 

a2BMolfar[  [4#  2]]  =  ox[[  4,  2]]2*  [g[[6]]  *  [l-  - - — —  —  - -J  J  A2  * 

,  (  (  etfar[ [4,  2]  ]  \\ 

aa[[  4,  2]  ]2  *  /3[  [6]  ]  *xMol[  [4,  2]  ]  *  - -  A2  + 

i  [  (l  +  «[[4,  2]])2  JJ 

CT£tfar[  [4,  2]  ]2  *  (j3 [  [6]  ]  *xMbl[[4,  2]]) A2  ; 

■til  etfar[  [4,  1]  ]  \\ 

a2SMolfar[  [4,  1]]  =  ox[[4,  l]]2*  ^[[6]]  *  (l-  — — — — — -jj  A2  + 

,  1  (  etfar[ [4,  1]]  \\ 

oa[[  4,  2  ]  ] 2  *  /J[  [6]  ]  *xMol[  [4,  1]]  *  - r  A2  + 

l  (  (l*a[[4.  I]])2)) 

oetfar[  [4,  1]  ] 2  *  (0[  [6]  ]  *  xMbl[  [4,  1]]) A2  ; 


o22Tclfar[ [3,  1]]  = 
ax[[ 5,  3] ] 2  *  ( (^ [ [5] ]  + 


/3[[6]]  *xlto2[  [6,  5]] 


oa[[5,  3]  ]2  *  J3[[5]]  + 


ox[[6,  5] ] 2  * 


]* _ i _ )  *2 

r‘ -  1  +  a[  [6,  5]  ]  J  1  +  a[  [5,  3]  ]  J 

(L™,  /3[[6]]  *xMb2[[6,  5]]  ^  xMo2[[5,  3]] 

0[[S]]  + - - - -  * - r 

[\  l  +  *[[6,  5]]  )  (1  +  «[  [5,  3]  ] ) 2 

j  /3[[6]]  xMQ2[[5#  3]]  \  ^  t 

l  l  +  a[[6,  5]]  *  1  +  a[  [5#  3]]  J 

f  0[[6]]  *xMb2[[6,  5]]  xMo2  [[5,  3]]  ^ 

[  (1  +  a[  [6,  5]  ] ) 2  l  +  a[[5,  3]]  J 


oa[[ 6,  5] ]2  * 


r_  „,2  J3[  [6]  ]  rr,  „,2  /3  [  [6]  ]  *  xMo2  [  [6,  3]  ] 

:[[6#3]]  *  - — — —  *2  +  ct«[[6,  3]]  *  - - - 

ll  +  a[[6,  3]]  j  ^  (1  +  a  [  [6#  3]  ] ) 2  J 
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CT2SMolfar[[2#  1]]  =  ax[[4,  2]  ]2  * 


f/3  [  [6]  ]  *  xM©l[  [6,  4]]  *  (l-  et£ar[[6'  4]1  )  *  (l-  £t£ar[  —  2---]]  A2 
lL  V  l  +  «[[6,  4]]  )  \  1  +  a[  [4,  2]  ]  JJ 


c»[[4,  2]  ]2  *  £[  [6]  ]  *xMtol[  [6#  4]]  * 


etfar [  [6,  4]]  \  /'xM0l[[4,  2]]  *etfar[[4 


l+a[[6,  4]] 


(1  +  « [ [4#  2]])‘ 


l31LY 

i  j 


aetfar[ [4,  2]  ]2* 


f/3  [  [6]  ]  *xM0l[[6,  4]]  *  (l-  £t£ar[[6#  |  *  (%MOl[[4,  —  ))  A2  + 

l  11  JJ  l  1  + «[  [6,  4]  ]  J  \  l  +  «[[4,  2]]  JJ 

nc[[6,  4]  ] 2  * 

f/3  t  [6]  ]  *  (l-  £t£ar[[6'  4]]  |  *  xMol[  [4,  2]]  *  (l-  £t£ar[[4/  2]  ■■■■])  A 2 

rLl  JJ  l  1  + «[  [6,  4]  ]  J  \  1  + «[  [4,  2]  ]  JJ 


oa[[6,  4]  ] 2  *  /J[[6]]  *xMol[[6,  4]]  * 


etfar [ [6,  4]] 
(1  +  ® [ [6#  4] ] ) ‘ 


aetfar[ [6,  4]]2* 


. ,  U  etfar [  [4#  2]  ] 

*  xMol [ [4,  2]  ]  *  1 - 

l  1  +  « [  [4#  2]  ] 


£[[6]]  *xM6l[[6,  4]]  *xMol[  [4,  2]]  * 


fi- 

l  l  +  a[[4,  211  II 
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cr2£Tclfar[[2,  1]]  = 
o*[[  3,  2]]2*  f  fj3[  [3]  ]  + 


xMo2 [ [ 5 ,  3]] 
1  +  a [  [5,  3]] 


*  /3[[5]]  ♦ 


/3[[6]]  *xMb2[[6,  5]] 


l  +  a[[6,  5]] 


/3[[6]]  *x MQ2[[6,  3]]  \  ^  / 

1  +  a  [  [6,  3] ]  i*l 
,  ( (  xMo2 [ [5# 

“[3- 211  *((« ' 13,1 ‘iTinir 


etfar[[3,  2]  ]  U 

1 +  *[  [3#  2]]  JJ 


>3[  [5]  ]  + 


/3  [  [6]  ]  *  xMo2  [  [6,  5]]  \  /3[  [6]  ]  *xM©2[[6,  3]] 


V  l  +  a[[6,  5]] 

l  xTcl[  [3/  2]]  *  etfar[  [3,  2]]  V 
l  (1  +  a [ [3,  2] ] ) 2  J, 

aetfar[ [3,  2]]2* 

1 1 .  xMo2  [  [5,  3]  ]  ( . 


\  +  g[  [6]  ]  *  xM02  [  [  6  ,  3]]  \ 

j+  1  +  a[  [6,  3]  ]  J 


>3[  [3]  ]  + 


l  +  a[[5,  3]] 


*  i3[  [5]]  + 


/3[[6]]  *  xMo2 [  [ 6 ,  5]] 
l  +  «[[6,  5]] 


13  [  [6]  ]  *xMo2[[6,  3]]  \  ^  /xTcl[[3,  2]]  \\ A  = 

1  +  a[ [6,  3]  ]  J  *  l  l  +  a[[3,  2]]  JJ 


ox[[ 6,  3]  ] 2  *  f - /B[[6]- - *  xTcl[  [3,  2]]  *  (l-  £t£Sr[[3,  —  ))  A2  + 

11  V 1  +  a[ [6,  3]  ]  l  l  +  a[[3,  2]]  JJ 

aa[[6,  3]  ]2  *  f - - r*xTcl[[3,  2]  ]  *  (l  -  ]  *2 

l  (l  +  a[[6,  3]  ] ) 2  \  1  +  «[  [3,  2]  ]  )) 


ox[[5,  3] ]2  * 


J3[[6]] 


<l  +  «*[[6,  3]  ]) 


((  l  +  a[[5. 


aa[[ 5,  3]]* * 


\ \  1  +  a[  [5,  3]  ] 

13  [  [6]  ]  *xMQ2[[6,  3]]  \ 
1  +  * [  [6#  3] ]  j 
((  xMo2[[5,  3J] 


*  J3[  [5]  ]  + 


li[[ 6]]  *  xMo2  [  [ 6 ,  5]] 


1 +  a [  [6#  5]] 
!  «tfr[[3,2]]UA3| 

1  +  a[ [3,  2]]  JJ 


(1  +  a[ [5,  3]])‘ 


13  [  [5]  ]  + 


J3  [  [ 6]  ]  *  xMo2  [  [6,  5]]  \  /3[[6]]  *xMo2[[6,  3]] 


/  etfar[[3 

xTcl[[3,  2]  ]  *  1 - - - yy- 

^  1  +  a [ [3, 


1  +  «[[6,  5]] 
etfarf [3,  2]] 
1  +  ®[ [3#  2]] 


l  +  a[[6,  3]] 


ox[[6#  5] ] 2  * 


ffXM&2[[5- . 3H - g[[6]]  I  *  xTcl[  [3,  2]]  *  [l-  ggSLglill]]  A  2 

V  V  1  +  a[  [5,  3]  ]  1  +  a[  [6,  5]  ]  J  l  l  +  a[[3,  2]]  JJ 


<?®[  [6/  5]  ]z  * 


xM©2  [  [5,  3]  ]  /3  [  [6]  ]  *xTcl[[6,  5]] 

- * - 


1  +  a [  [5#  3]] 


(l  +  a[[6#  5]])' 


_ ,  „„  .  L  «tfar[[3,  2]]  )) 

xTcl[[3,  2]]  *  1  -  — —  — —  I 

v  1  +  a  [ [3,  2] ]  j  j 


a2S0Solfax  =  Table [0,  {i,  1,  m}  ,  {k,  1,  m}]; 
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a2^(Mo2far  =  Table [0,  {i,  1,  m} ,  {k,  1,  m}]; 
a2MTclfar  =  Table [0,  {i,  1,  m} ,  {k,  1,  m}]; 

(  epfar [ [2,  1]  ] 


a2^(Mol£ar[  [2,  1]]  =  ox[[2,  l]]2* 

ct«[[2,  l]]2* 


V  l  +  a[[2,  1]] 
xMol [ [ 2 ,  1]  ]  *  epfar [ [2,  1]  ] 


*2  + 


crepfar[ [2,  1]  ]2  * 


(l  +  a[[2,  1]])" 
f xMol[ [2/  1  ]]|tI. 

I  1  +  a[  [2,  1]]  J  ' 


2  + 


a[[2,  1]] 

,  / epfar[ [2,  1]  ]  1 

a2^ITclfar[  [2,  1]]  =ox[[2,  l]]2*  - - “  A2 

l  l  +  a[[2,  1]]  J 

/"  xTcl[ [2,  1]  ]  *  epfar [ [2,  1]  ]  \ 


ob[[2,  1]]"* 


(l  +  fl[[2,  1]])‘ 


A2  + 


*  PP„  *,,2  (  *Tcl[ [2,  1]  ] 

aepfar[  [2,  1]  ]  *  1 - 


1 


xTcl[  [2,  1]]  \  ^  # 

1  +  «[  [2,  1]  ]  J 


a2tfTclfar [  [3,  1]]  =  ox[[3,  l]]2* 


l  epfar [ [3,  1]  ] 


o»[[3,  l]]2* 


V  l  +  *[[3,  1]] 
xTcl[[3#  1]]  *  epfar [ [3#  1]] 


'2  + 


(1  +  «[ [3,  1]])' 
/  xTcl[ [3#  1]] 


A2  + 


,  /  xTcl[ [3,  1]  ]  ^  , 

oepfar[  [3,  1]  ] 2  *  I  — - 11  ,  *2  +  ox[[3,  2]]2* 

l  l  +  «[[3,  1]]  J 


epfar [  [3,  2]  ]  xTcl[  [2,  1]  ]  *  epfar[  [2,  1]  ] 


j epfar [[3 
l  1  +  «[ [3, 


[  [3#  2]] 


l  +  *[[2,  1]] 


j  A2  +  CTa[  [3#  2]  ] 2  * 


xTcl[ [3,  2] ] *  epfar [ [3,  2]  ]  xTcl[ [2,  1]  ]  *  epfar[ [2,  1]  ] 

-  *  - 


(l  +  a[[3,  2]])' 


l  +  a[[2,  1]] 


'2  + 


aepfar[ [3,  2]]2* 


(  xTcl[ [3,  2]]  xTcl[ [2,  1]]  *  epfar [ [2,  1]  ] 


ITT 


a[[3,  2]] 


1  +  «[  [2#  1]] 


/  xTcl [  [3,  2]  ]  *  epfar [  [3,  2]]  epfarf  [2,  1]  ] 


l  +  «[[3,  2]] 


l  +  «[[2,  1]] 


xTcl [ [3,  2] ] *  epfar [ [3,  2]  ]  xTcl[ [2,  1] ]  *  epfar[ [2,  1]  ] 

-  *  - 


l  +  fl[[3,  2]] 


(l  +  fl[[2,  l]])' 


A2  +  ox[  [2,  l]]2* 
A2  +  aa[  [2,  l]]2* 

A2  + 


aepfar [ [2,  1]  ]2  * 


xTcl[ [3,  2]  ]  *  epfar [ [3,  2]  ]  xTcl[ [2,  1]  ] 


xTcl[[2,  1]]  \  a2  _ 

l  +  «[[2,  1]]J 


1  +  a[ [3,  2]] 
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,  /  epfar[ [4,  1]  ]  ^ 

CT2*MQlfar[  [4,  1]  ]  =ox[[4,  l]]2*  - - — —  A2 

\  1  +  a[ [4,  1] ]  ) 


aa[[4,  l]]2* 


xMol[  [4,  1]]  *epfar[[4,  1]  ] 


(1 +  a t [4#  I]])' 


A2  + 


^  . .  (  xMol[  [4/  1]  ] 

aepfar[  [4,  1]  ]  *  1 - - 


xMtol[ [4/  1]]  i 
l  +  «[[4,  1]]  j 


*2  +  ax[  [4,  2]  ] 2  * 


(  epfarf  [4,  2]]  x*tol[[2,  1]  ]  *  epfar  [  [2,  1]] 

[  1  +  « [  [4/  2]]  *  l  +  «[[2,  1]] 

(  xMol[ [4,  2]  ]  *  epf ar [ [4,  2]  ]  *  xMol[ [2,  1]  ]  *  epfar[ [2,  1]  ]  ) 


(l  +  «[[4,  2]  ] )  ‘ 


1  +  a[  [2,  1]] 


A2  +  aa[  [4,  2]]2* 
A2  + 


aepfar[ [4,  2]  ]2  * 


/  xMol [  [4,  2]  ]  xMbl[  [2,  1]  ]  *  epfar[  [2,  1]  ] 


«[ [4#  2]] 


l  +  «[[2,  1]] 


xMOl[  [4,  2]  ]  *  epf ar[  [4,  2]  ]  epfar[  [2,  1]  ] 

-  * 


l  +  a[[4,  2]] 


1  +  «[  [2,  1]] 


xMol[  [4,  2]  ]  *  £pfar[  [4,  2]  ]  xMol[  [2,  1]  ]  *  £pfar[  [2,  1]  ] 

- * - 


l  +  «[[4,  2]] 


(l  +  «[[2,  !]])' 


A2  +  ox[  [2,  1]  ]2* 
A2  +  aa[  [2,  l]]2* 

A2  + 


aepfar[ [2,  1]  ]  * 


2  [  xMOl[  [4/  2]  ]  *  £pfar[  [4,  2]  ]  xMQl[[2,  1]  ] 


v 


1  +  *  [  [4/  2]] 

(  £pfar[  [4#  2]  ] 


xMOl[[2/  1]]  \  a2  . 

l  +  a[[2,  1]]  j  f 


,  (  £pfar[  [4,  2]  ]  \ 

a2#Molfar[  [4,  2]]  =  ox[[4,  2]]2*  - - ____  A2 

V  l  +  «[[4,  2]]  J 

xMol  [  [4,  2]  ]  *  £pfar[  [4,  2]  ] 


oa[ [4,  2] ]2  * 


(l  +  «[[4#  2]  ] ) 


A2  + 


^  «,,2  (Xltol[[4,  2]] 

CT£pfar[  [4,  2]  ]  *  1  - 


fol[[4,  2]]  \ 

{  1  +  «[  [4,  2]]  j 


2; 


a2^IMo2far[  [5,  3]  ]  =  ox  [[5,  3]  T  * 
a«[[5,  3] ]2  * 


/  £pfar[  [5,  3]  ] 
l  1  +  «[  [5,  3]] 

xMo2  [  [5,  3]]  *  £pfar[  [5#  3]] 


A  2  + 


aepfart [5,  3]  ]2  * 


(1  +  «[ [5#  3]])' 
/  xMo2 [ [5,  3]  ] 


V  l  +  a[[5,  3]] 


2  + 


2} 
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a2.?(lK>2far[  [6,  3]  ]  =  oxf  [6,  3]  ]  * 


/  epfarf [6,  3]] 


oa[[6,  3]  ]2  * 


l  1  +  «[  [6,  3]] 

(  xM©2[[6,  3]]  * epfarf [6,  3]] 


'2  + 


aepfarf [6,  3]  ]  * 


(1  +  a[ [6#  3]]) 
(  xMo2 [ [6,  3]  ] 


A2  + 


l  +  a[[6,  3]] 


>  3]]  \ 

.  3]]  J 


I  epfarf [6,  5]]  xMo2[[5,  3]]  * epfarf [5,  3]] 


V  1  +  <*[  [6#  5]] 


l  +  a[[5,  3]] 


xMo2  [  [6,  5]]  *  epfarf  [6,  5]]  xMo2[[5,  3]]  * epfarf [5,  3]]  \ 

- * - 


A2  +  ox[  [6,  5]  ]  * 

A2  +  aa[[6,  5]]2* 
A2  + 


(1 +  fl[ t®»  5]])‘ 


1  +  «[  [5,  3]] 


aepfarf [6,  5]  ]2  * 


(  xMo2  [  [6,  5]]  xMo2  [  [5,  3]]  * epfarf [5,  3]] 


ITT 


a[[6.  5]] 


1 +  * [  [5/  3]] 


■2  +  ax [ [5,  3] ] 2  * 


xMo2 [ [6,  5]  ]  *  epf ar [ [6,  5]  ]  epfarf [5,  3]  ] 


1  +  a [  [6,  5]] 


l  +  «[[5,  3]] 


xM02[[6,  5]]  *  epfarf  [6#  5]]  xM©2[[5,  3]]  * epfarf [5,  3]] 

- * - 


A2  +  aa[[5,  3]  ]2  * 
A2  + 


l  +  «[[6,  5]] 


(l  +  «[[5,  3]])' 


aepfarf [5,  3]]2* 


2  f xMo2[[6,  5]]  »  epfar[  [6#  5]]  xMo2[[5,  3]] 


l  +  a[[6,  5]] 


*Mo2[[5,  3]]  \  a2  _ 
l  +  «[[5#  3]]  j 


a2^H10l£ar[  [6,  4]  ]  =  ox  [  [6,  4]  ] 2  * 


a«[[6,  4]  ]2  * 


epfar[[6,  4]] 
1  +  «E[6»  4]] 

xMol[ [6,  4]]  * epfarf [6,  4]] 


A  2  + 


(l  +  «[[6,  4]])' 
(  xMOl[ [6#  4]] 


2  + 


,  (  xMQl[  [6,  4]]  \ 

aepfar [  [6,  4]]2*  - - 11  -_-f  A2; 

V  1  +  a[  [6,  4]  ]  J 


o2S(Mal£ax [  [6#  5]]  =  ox  [  [6,  5]]2* 


a«[[6,  5] ] 2  * 


epfar[ [6,  5]] 
l  +  *[[6,  5]] 

xMo2[ [6,  5]  ]  *  epfarf [6,  5]  ] 


A  2  + 


aepfar [ [6,  5]]2* 


(1  +  «[ [6,  5] ] ) 2 
/  xMo2 [ [6/  5]]  \  a2  # 
l  l  +  a[[6,  51]  J 


2  + 


a[[6,  5]] 

a2yVMolf ar  =  Table [ 0 ,  {i,  1,  m>,  {k,  1,  m}]; 

a2 A^M02 far  =  Table [0,  (i,  1,  m}#  {k,  1,  m}]; 

a2MTclfar  =  Table  [0,  {i,  1,  m>,  {k,  1,  m}]; 
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.  (  etfar[ [2,  1]  ]  \ 

a2AUtolfar[[4,  2]]  =  ox[[ 2,  l]]2*  1-  - — — —  A2 

V  l+a[[2#  1]]  ) 


aa 


.  (  etfar[ [2,  1]  ]  \ 

[[2.  I]]2*  xMol[[2,  1]]  * - - - i±-\ 


2  + 


(l  +  a[[l,  2]  ]  )  ) 


aetfar[ [2,  l]]2* (xMol[[2,  1]])  A2  ; 
<j2MMblfar[  [6,  4]]  = 

OX 


[[2,  l]]2*  ffl-  £tfar[[2'  1]]  |  *xMol[[4,  2]]  *  (l-  £t£^r[  — 2]  ]  ]]  *2  + 
U  1  + «[  [2,  1]  ]  J  l  1  +  a  [  [4#  2]  ]  JJ 

,  ((  etfarf [2,  1]]  ^ 

oa[[2,  l]]2*  xMol [[2,  1]  ]  * - - - -  * 

U  (1  +  <*[  [2,  1]  ]  )2  ) 

[  £tfar[ [4,  2]  ]  \  1 
xMol[[4,  2]]  *  (l — - — ;;  11  A2  + 

V  1  +  «[ [4,  2]  ]  ) ; 

,  /  (  Etfar[ [4,  2]  ]  \  \ 

a£tfar[  [2,  l]]2*  f(xMt>l[[2,  1]])  *xMbl[[4,  2]  ]  *  fl  -  -  —————  j  J  *2  + 

o*[[4,  2]]2*  (xMol[[2/  1]]  *  (l-  gt£ar[  —  1]]  )  *  fl-  gt£ar[  —  — ]  ])  A2  ■ 
\  V  1  +  a[  [2,  1]  ]  J  l  l  +  «[[4,2]]  )) 


a«[[4,  2] ]2  * 


/  /  etfar[[2,  1]]  \  £tfar[[4,  2]]  1 

xMol[  [2,  1]]  *  1-  - - 11  11  *  xMol [  [4,  2]]  * - - - i—  A2 

{  V  l  +  a[[l,  2]]  J  (1  +  «[  [4,  2]  ] ) 2  J 

a£tfar[ [4,  2]  ]2  * 

[xMOlf  [2,  1]]  *  fl-  gt£ar[[2,  1]1  )  *  xMol  [  [4,  2]]  * - - - ]  A2; 

\  l  1  +  a[  [2,  1]  ]  J  1  +  «[  [4#  2]  ]  J 

,  (  £tfar[ [5#  3]  ]  \ 

a2A«to2far[  [6,  5]]  -ox[[ 5,  3]  ]2  *  1 - - - J-i__  W2  + 

V  1  +  a[  [5,  3]  ]  J 


ct«[[5,  3]]2*  xMo2[[5,  3]  ]  * 


£tfar[ [5,  3]] 
(1  +  «[ [5#  3] ] ) : 


A2  + 


0£tfar[  [5,  3]  ] 2  *  fxMo2  [  [5,  3]  ]  *  - -  1  — |  A2  ; 

V  l  +  a[[5,  3]]  ) 


The  following  combines  the  constituent  errors  from  the  major  terms  S,  3\,  and 
M  into  a  total  error  for  3,  the  peak  count  fraction. 


aSMolfar  =  (Table [a2£Molfar[  [i,  k]  ]  *#Mblfar[  [i,  k]  ]2  *  >MM6l£ar[  [k]  ]2  + 
a2#Molfar  [  [i,  k]  ]  *  SMolfar [  [i]  ] 2  *  MMblfar [  [k]  ] 2  + 
a2A1Molfar  [  [i,  k]  ]  *#Molfar[  [i,  k]  ] 2  *  SMolfar  [  [i]  ] 2, 

{i#  1,  m}#  {k,  1,  m}] )  A 

1 


G97DENP09_ApC.  nb 


138 


a£M02far  =  ( Table [ a2£Mo2 f ar [  [i,  k]  ]  *${ Mo2far[  [i,  k]  ]2  *  Attfo2far[  [k]  ]2  + 
a2MMo2far[  [i,  k]  ]  *  SMo2far [  [i]  ] 2  *  MMb2far  [  [k]  ] 2  + 
a2MMo2far[  [i,  k]  ]  *5tMo2far[  [i,  k]  ] 2  * £Mo2far[  [i]  ]2, 

{i,  1,  m},  {k,  1,  m}  ] )  A 

1 

T; 

oSTclfar  =  (Table [ a2STclf ar [  [i,  k]  ]  *  5tTclfar  [  [i,  k]  ] 2  *  AITclfar  [  [k]  ] 2  + 
cr2flTclfar  [  [i,  k]  ]  *  OTclfar  [  [i]  ] 2  *  MTclfar[  [k]  ] 2  + 
a2MTclfar [  [i,  k]  ]  *  #Tclfar[  [i#  k]  ] 2  *  STclfar [  [i]  ] 2, 

{i,  1,  m},  {k,  1,  m}])  A 

1 

2  ' 

aSfar  =  aSMolfar  +  aSMo2far  +  ovSTclfar; 

MatrixForm  [  a-Sf  ar]  ; 
percentcSf arlist  = 

100*  {cr.Sfar[  [6,  3]]  /Sfar[[6,  3]],  <xSfar[[6,  4]]  /5far[[6,  4]], 
c*Sfar[[6,  5]]  /5far[[6,  5]],  aSfar[[5,  3]]  /«Sfar[[5,  3]  ] , 
oSfar[  [4,  1]]  /Sfar[[4,  1]],  aSfar[[3,  1]]  /.Sfar[[3,  1]], 
aSfar [  [2,  1]]  / S£ax[  [2,  1]],  a.Sfar[[4,  2]]  /5far[[4,  2]]}; 

TableForm  [  Table  [ 

{Mo99ganmas[  [i]  ]  ,  £farlist [  [i]  ]  ,  percentaSf arlist [ [ i] ] } ,  {i,  1,  8}], 
TableHeadings  ->  {None,  {"Gamma  (Mev)",  "Peak  Prob,  10cm",  "%  Dev"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Peak  Prob,  10cm 

%  Dev 

0.777921 

0.000140289 

4.6209 

0.7395 

0.000409061 

2.31596 

0.411491 

9.02149  xlO'7 

1.10471 

0.366421 

0.0000742688 

49.2925 

0.181068 

0.000645766 

2.2063 

0.142675 

3 . 4602  x  10"6 

10.1708 

0.140511 

0.00976995 

1.77762 

0.0405845 

0.0000274028 

5.88082 

The  procedure  is  repeated  now  for  the  face  efficiency  standard  deviations. 

oetps5sface  =  {{0,  0,  0,  0,  0,  0},  {0.03 *  e tps5sf acelist [  [7]  ]  ,  0,  0,  0,  0,  0}, 
{0.03  *  etps5sf acelist  [  [6]  ]  ,  0,  0,  0,  0,  0}, 

{0.03  *  etpsSsf  acelist  [  [5]  ]  ,  0.03 *  etps5sf acelist [  [8]  ]  ,  0,  0,  0,  0}, 

{0,  0,  0.03  *  etpsSsf acelist [  [4]  ]  ,  0,  0,  0}, 

{0,  0,  0.03  *  etpsSsf  acelist  [  [1]  ]  ,  0.03  *  etpsSsf  acelist  [  [2]  ]  , 

0.03  *  etpsSsf  acelist  [  [3]  ]  ,  0}}; 
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aetps3sface  =  {{0,  0,  0,  0#  0,  0},  {0.03  *  £tps3sf acelist [  [7]  ]  ,  0,  0,  0,  0,  0}, 
{0.03  *  £tps3sf acelist [  [6]  ] ,  0,  0,  0,  0,  0}, 

{0.03*  £tps3sf acelist [  [5]  ]  ,  0.03  *  £ tps3sf acelist [  [8]  ]  ,  0,  0,  0,  0}, 

{0,  0,  0.03 *  etps3sf acelist [  [4]  ] ,  0,  0,  0}, 

{0,  0,  0.03  *  £tps3sf acelist [  [1]  ] ,  0.03  *  £tps3sfacelist [  [2]  ] , 

0.03*  £ tps3 sf acelist  [  [3]  ] ,  0}}; 


a£tds3sface  =  { {0,  0,  0,  0,  0#  0}#  {0.03 *  £tds3sf acelist [  [7]  ] ,  0,  0,  0,  0,  0}, 
{0.03*  £tds3sf acelist  [  [6]  ]  ,  0,  0/  0,  0,  0}, 

{0.03*  £tds3sf acelist [  [5]  ]  ,  0.03  *  etds3sf acelist [  [8]  ]  ,  0,  0,  0,  0}, 

{0,  0,  0.03  *  Etds3sf acelist [  [4]  ]  ,  0,  0,  0}, 

{0,  0,  0.03  *  £tds3sf acelist [  [1]  ] ,  0.03  *  £tds3sf acelist [  [2]  ] , 

0.03  *  etds3sf acelist  [  [3]  ]  ,  0}}; 


cte t face  =  Table [0,  {i,  1,  m}#  {k,  1,  m}  ] ; 

f  (  £ tds3sf acelist [ [7] ]  '  2 

a£tface[ [ 2 ,  1]  ]  = 


^  l  £ tps3sf acelist [ [7]  ] 

( (£ tps5sf acelist  [  [7]  ]  *  etds3sf acelist  [  [7]  ] )  / 
£tps3sf acelist [ [7]  ]2)  A2* 
aetps3sface[ [2,  1]  ]2  + 


*  o£tps5sface[ [2,  1]  ]  + 


etps5sf acelist [ [7] ] 
e tps3sf acelist [ [7] 


V  ‘ 

]  i 


* CT£tds3sface[ [2,  1]]‘ 


1  ^ 

a£tface[ [3,  1]  ] 


( (  £ tds3sf acelist [ [6] ] 


1 1  etps3sf acelist [ [6] 

( (e tps5sf acelist  [  [6]  ]  *  £ tds3sf acelist  [  [6]  ] )  / 
£tps3sf acelist [  [6]  ] 2)  A2* 
aetps3sface[ [3,  1]  ]2  + 

/  £tps5sf acelist [ [6] ]  '  2 
V  £tps3sf acelist [ [6]  ] 


]  V  2 

—  *  c£tps5sface  [  [3#  1]  ]  + 

]  ‘ 


* a£tds3sface[ [3,  1]  ] 


1 

¥ 
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ae  tf ace [ 


[4,  1]]  =  |( 


etds3sf acelist [ [5]  ] 


e tps3sf acelist [ [5]  ] 

( (EtpsSsf. acelist  [  [5]  ]  *  e tds3sf acelist  [  [5]  ] )  / 
etps3sf acelist [  [5]  ] 2)  A2* 
aetps3sface[  [4,  1]]2  + 

(  EtpsSsf acelist [ [5] ]  '  2 


*  cretps5sface[  [4#  1]  ]  2  + 


etps3sf acelist [ [5] 


f)' 


* aetds3sface[ [4,  1]]' 


act face [[4,  2]] 


(  /  etds3sf acelist [ [8] ]  \2 


(( 


e tps3sf acelist [ [8] 

( ( etpsSsf; acelist [ [8] ] * etds3sf acelist [ [8] ] )  / 
etps3sf acelist [ [8] ]2)  A2  * 
aetps3sface[ [4,  2]  ]2  + 

(  etpsSsf acelist [ [8] ]  % 2 


*  aetps5sface[  [4#  2]]2  + 


£ tps3sf acelist [ [8] ] 


* CTEtds3sface [ [4,  2]  ] 


2  a 


a£tface[ [5,  3]  ]  = 


(  (  £ tds3sf acelist [ [4]  ]  \2 


[  V  £tps3sf acelist [ [4] ] 

( ( EtpsSsf  acelist  [  [4]  ]  *  e  tds3sf  acelist  [  [4]  ] )  / 
£ tps3sf acelist [  [4]  ]2)  A2* 
a£tps3sface[ [5#  3]  ]2  + 

/  e tps5sf acelist [ [4] ]  v  2 


|  *  cte tpsSsf ace [  [5,  3]]2  + 


e tps3sf acelist [ [4] ] 


* CT£tds3sface[ [5,  3]] 


1 

~2 


ae  tf ace [ 


[6,  3]]  = 


£tds3sf acelist [ [1] ] 


£tps3sf acelist [ [1]  ] 

( (£  tpsSsf  acelist  [  [1]  ]  *  e  tds3sf  acelist  [  [1]  ] )  / 
£tps3sfacelist[ [1] ]2)  A2  * 
cr£tps3sface[  [6,  3]]2  + 

/  £ tpsSsf acelist [ [1]  ]  \2  0 

-  *  a£tds3sface[  [6/  31] 2 

l  e tps3sf acelist [ [1] ]  y 


*  a£tps5sface[ [6,  3]  ] 2  + 


1 

~2 
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*”■((■ 


( /  etds3sfacelist [ [2]  1  ^ 

aetface[[6#  4]  ]  =  -  *  aetpsS 

( l  etps3sf acelist [ [2] ]  J 

( ( e tps5sf acelist [  [2]  ]  *  etds3sfacelist [  [2]  ] )  / 

etps3sf acelist [ [2]  ]2)  A 2  * 

cetps3sface[ [6,  4]  ]2  + 

/  etps5sfacelist[[2]]  \2  ___ _ _  ,,,2 


*  as tps5sf ace [ [6,  4]  ]2  + 


etps3sf acelist [ [2] ] 


* aetds3sface[ [6,  4]]' 


5]]  =  [(' 


/  etds3sf acelist [ [3] ]  ^  2 

a£tface[  [6,  5]]  =  - ^-= — =-^-  *  aetpsS 

{  etps3sf acelist [ [3] ]  ) 

( (etpsSsf acelist  [  [3]  ]  *  etds3sf acelist  [  [3]  ] )  / 
etps3sfacelist[  [3]  ]2)  A2* 
ere tps3sf ace [  [6,  5]  ]2  + 

(  £tps5sfacelist[[3]]  \2  ___ _ _  „,,2 


* c£tps5sface[ [6#  5]  ]  + 


£tps3sfacelist[ [3] ] 


* afitds3sface[ [6,  5]]‘ 


aPKt oTTLds 5 s  =  Table  [0,  {i,  1,  m}  #  {k,  1,  m}]  ; 


aPKtoTTLdsSs [ [2,  1]  ] 


epdsSsf arlist [ [7]  ] 
etds5sf arlist [ [7] ]2 


etdsSsf arlist [ [7] ] 


*  aetfar [ [2,  l]]2; 


*  a£pf ar [[2,  l]]2  + 


aPKtoTTLdsSs [ [3,  1]  ] 


f - i, 

V  EtdsSsf arlxst [ [6]  ] 


EpdsSsf arlist [ [6] ] 
£ tds5sf arlist [ [ 6] ] 2 


*  aEtfar [ [3,  l]]2; 


*  CT£pfar[ [3,  l]]2  + 


aPKtoTTLdsSs [ 


[4,  1]  ]  =  ( - — 

l  £ tds5sf arlist [ [5]  ] 


EpdsSsf arlist [ [5] ] 
£tds5sf arlist [ [5] ] 2 


*a£tfar[  [4,  1]  ]2; 


*a£pfar[  [4,  1]  ] 2  + 


aPKtoTTLdsSs [ 


[4,  2]]  =  f - - 

l  etdsSsfarl 


£pds5sf arlist [ [8] ] 
£tds5sf arlist [ [8] ] 2 


£ tdsSsf arlist [ [8]  ] 


*  a£tfar[ [4/  2]  ]  ‘ 


*  a£pfar[  [4#  2]  ]2  + 
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aPKtoTTLds5s[ [5,  3]]  =  f - )  *aepfar[[5#  3]]2  + 

[  etds5sfarlist[[6]]  ) 

(  spdsSsf arlist [ [6] ]  ^2  , 

— - L-^-L  *aetfar[[5,  3]]2j 

V  etds5sf arlist [ [6] ] 2  J 

aPKtoTTLds5s [  [6,  3]]  =  ( - - - )  *aep£ar[[6,  3]]2  + 

L  [  etds5sfarlist[[l]]  ) 

(  epds5sf arlist [[ 1] ]  \2  , 

^  £tds5sf arlist [ [ 1]  ] 2 ) 


aPKtoTTLds5s[ [6,  4]  ]  =  | 

f  cpds5sf arlist [ [2] ] 

(  etds5sf arlist [ [2]  ] 2 


- 1 - f 

£tds5sf arlist [ [2] ]  J 
j  *  CT£tfar[  [6,  4]  ]2; 


*  aepfar[ [6,  4]  ] 2  + 


aPKtoTTLds5s [  [ 6,  5]]  =  f - - - )  *aepfar[[6,  5]]2  + 

[  etds5sfarlist[[3]]  ) 

(  epds5sf arlist [ [3] ]  )2  , 

*  aetfar[  [6,  5]  ]2; 

{  etds5sf arlist [ [3] ] 2 ) 


crepface  =  Table [0,  {i,  1,  m},  {k,  1,  m}]; 

aepface [  [2,  1]  ]  =  ( (PKtoTTLds5slist [  [7]  ] ) 2  *  cretface[  [2,  1]  ]2  + 
(etface[ [2,  1]  ]  )2 * aPKtoTTLdsSs [ [2,  1]]2)A 


aepface[  [3,  1]  ]  =  ( (PKtoTTLds5slist  [  [6]  ] ) 2  *  aetface[  [3,  1]]2  + 
(etface[ [3,  1]  ] ) 2  *  oPKtoTTLds5s [ [3,  1]]2)A 


aepface[[4,  1]]  =  ( (PKtoTTLds5slist  [  [5]  ] ) 2  *  aetface[  [4,  1]]2  + 
(etface[  [4,  1]  ]  )2  *  crPKtoTTLdsSs  [  [4,  1]]2)A 


a£pface [  [4,  2]]  =  ( (PKtoTTLds5slist [  [8]  ] ) 2  *  aetface[  [4#  2]]2  + 
(£tface[  [4,  2]  ] ) 2  *  aPKtoTTLds5s  [  [4,  2]]2)A 
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cr£pface[[5,  3]  ]  =  ( (PKtoTTLds5slist [  [4]  ] ) 2  *  cretface[  [5,  3]]2  + 
(etface[  [5,  3]  ]  )2  *  aPKtoTTIids5s [  [5,  3]  ]2)  A 

1 

■  • 

2  ' 

aepface[  [6,  3]]  =  ( (PKtoTTLds5slist [  [1]  ] ) 2  *  aetface[  [6,  3]]2  + 
(etface[ [6,  3]  ] ) 2  *  aPKtoTTLds5s [ [6,  3]]2)A 
1  _ 

~2' 

CT£pface[[6,  4]]  =  ( (PKtoTTLds5slist [  [2]  ] ) 2  *  aetface[  [6,  4]]2  + 
(etface[  [6,  4]  ]  )2  *  aPKtoTTLdsSs [  [6,  4]]2)A 

1 

T' 

CT£pface[  [6,  5]]  =  ( (PKtoTTLds5slist  [  [3]  ] ) 2  *  a£tface[  [6,  5]]2  + 
(£tface[  [6,  5]  ] ) 2  *  cPKtoTTLdsSs [  [ 6#  5]]2)A 

1 

2! 

a2#Molface  =  Table [0,  {x,  lr  m}#  {k#  1,  m}]; 

o2&Mo2 face  =  Table [0,  {i,  1,  m}#  {k,  1,  m}  ] ; 

o2£Tclface  =  Table [0,  {i,  lg  m}#  {k#  1#  m}]; 

i  l  l  etface[ [6,  5]  ]  \  \ 

a2SMo2£ace[[5,  3]]  =  ox [[6,  5]  ]2  *  [fi  [  [6]  ]  *  1  -  — - — — —  A2  + 

V  V  1  +  a[[6,  5]]  )} 

ct«[[6,  5]]2*  fj3[  [6]  ]  *xMb2[[6,  5]  ]  *  f-6t  — 1  5]  ]  2-||  A2  + 

{  [  (l  +  a[[6,  5]])2  )) 

aetface[  [6,  5]  ] 2  *  </3 [  [6]  ]  *xMt>2[[6,  5]])  A2  ; 


cr2SMolf ace [  [  4  ,  2]]  =  cx[[4,  2]]2* 


j/3[[6]]  *  (l- 


£tface[ [4,  2]]  ^ 

l  +  «[[4,  2]]  )} 


a«[[4,  2]]2*  f/3[[6]]  *xMol[[4,  2]  ]  *  f  gt£ar[[4'  2]  ]  ||  *2  + 
l  {  (1*«[[4,  2]  ]  )2  Jj 

c£tface[[4#  2]  ] 2  *  (/3  [  [6]  ]  *xMbl[[4,  2]])  A2  ; 


a2iSMolface[  [4#  1]]  =  ox[[4,  1]  ] 2  *  U  [  [6]  ]  *  fl  -  ]  A2 

a«[[4,  2]  ]2  *  f/i  [  [6]  ]  *  xMol[  [4#  1]]  *  f  £tface[[4'  Hi.]]  a2  + 
l  [  (l  +  «[[4,  l]])2)) 

c£tface[  [4,  1]  ]2  *  (/3[  [6]  ]  *xMbl[[4,  1]])  A2  ; 
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o22Tclface[ [3,  1]  ] 


ox[[5,  3]  ] 2  *  J3[  [5]  ]  + 


((' 


j8[[6]]  *  xMo2  [  [  6  #  5]] 
1  +  a[  [6,  5]] 


■)* - - - -) 

)  1  +  a[  [5,  3]  ]  J 


A2  + 


aa[[5,  3]  ] 2  *  /3[[5]]  + 


((' 


J3[  [6]  ]  *xM62[[6,  5]]  \  xM£>2[[5,  3]]  ) 


rr,  .,,2  (  *[[«]]  xM62  [  [5,  3]]  ^  Ao 

ax  [  [6,  511*  - * -  A2 

V  1  +  a[  [6#  5]]  l  +  «[[5,  3]]  ) 


!+•[[«#  5]] 
xMo2 [ [5,  3]] 


N  xMo2 [ [5, 
)  *  (l  +  a[[5. 


3]])2  ) 


A2  + 


a«[[6#  5] ] 2  * 


j3  [[6]]  *  xMo2  [  [6,  5]]  xMD2[[5,  3]]  ^ 


l  (1 +  a [ [6,  5] ] ) ' 


‘2  + 


ox 


r_  „„a  (  J8[[6]]  \An  rr*  „„a  P  [  [6]  ]  *  xMol 

[[6»3]]  *  - — — — —  A2  +  aa[[6,  3]]  *  - 

V  1  +  «[  [6,  3]]  /  ^  (1  +  a  [  [6/ 


l  +  «[[5,  3]]  J 

/3[[6]]  *  xMQ2  [  [6,  3]]  ^ 
3]  ]  )2 


2; 


o22Molf ace [  [ 2 ,  1]]  =  ox[[4,  2]  ] 2  * 


/  /  etface[[6,  4]  ]  \  (  etface[[4,  2]]  \\ 

(^  [  [6]  ]  * xMOl[  [6,  4]]*  1-  — -  11  J-  U  1-— -  1  J J  A2 

V  \  l  +  ®[[6#4]]  /  V  1 +  [4/  2]  ]  J ) 


oa[[ 4,  2] ]2  * 


[[6#  4]] 

0[[6]]  *xMbl[[6,  4]]  * 

xMol[ [4,  2]  ]  *  et£ar[ [4 


f  etf ace [  [6,  4]  ]  \  ' 

{  1  +  «[  [6#  4]  ]  J*  / 


(l+a[[4,  2]])' 


-)) 


2  + 


aetf ace [ [4,  2]  ]2  * 


(orr4ril  „  1rr£  „  ■, ,  L  etface [ [ 6,  4]  ]  \  /  xMol  [  [4 ,  2]  ]  \  \ 

(«[[«)].  »![[«.  «]]♦(!-  lt.[[tt4n  J  *  (  !t»[  [4f  2]  ]  )) 


‘  2  + 


ox[[6,  4] ] 2  * 


(*[[«]]*  fl-  £t£aCe[[6-.ill|  *  xMol[  [4,  2]]  *  fl-  £t£aCe[[^-])  A  2 
rLL  JJ  l  1  + «[  [6#  4]  ]  )  V  1  +  a[  [4,  2]  ]  JJ 


o«[[6,  4]  ] 2  *  13 [  [6]  ]  * xMol[  [6,  4]]  * 


etface[[6,  4]]  )  „„rrA  0, ,  (,  etface[  [4,  2]  ]  ^  0 

- z -  *xMbl[[4#  2]]  *  1 - A2 

(l  +  «[[6,  4]])2  j  l  1  + «[  [4/  2]  ]  )) 


act face [[6,  4]]2* 


()3[  [6]  ]  *xM©l[[6,  4]  ]  *xMbl[  [4,  2]  ]  *  (l  -  A2  ; 
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o22Tclface[ [2,  1]]  = 


ox[[  3,  2]  ] 2  *  \li[[  3]]  + 


[if 


xMo2 [ [ 5 #  3]] 
1  +  «[  [5,  3]] 


*  /3[  [5]  ]  + 


J3  [  [6]  ]  *xMC2[[6,  3]  ]  \  / 

Efface [ [3,  2]  ]  ^ 

l  +  «[[6,  3]]  J*l 

1  +  «[  [3,  2]  ]  JJ 

/3[  [6]  ]  *xMQ2[[6,  5]] 
l  +  «[[6,  5]] 

A2  + 


aa[[ 3,  2] ] 2  *  /3[[3]]  + 


((' 


xMo2 [ [5,  3]] 
1  +  a[  [5,  3]] 


J3[  [5]  ]  ♦ 


/3[[6]]  *xMo2[[6,  5]]  \  jB[[6]]  *xMt>2[[6,  3]] 


l  +  a[[6,  5]] 

(  xTcl[ [3#  2]]  *  etface[ [3 


l  +  a[[6,  3]] 


V  (l  +  «[[3,  2]]) 

aetface[[3#  2]]2* 

xHo2  [  [5/  3]] 


,  2]]  y 

i  i 


2  + 


(( 


J3[  [3]  ]  + 


1  +  «[  [5,  3]] 

J3  [  [6]  ]  »  xMo2  [  [6#  3]] 
l  +  «[[6,  3]] 


*  /9[[ 5]]  + 


/3  [  [6]  ]  *xMo2[[6,  5]] 
1  +  a[  [6,  5]] 


) 


'  ,>TC1[[3,  2]]  ''  2 

)  [  1  +  a [ [3#  2]]  JJ 


ox 


,  /  /3[[61]  f  Etface[ [3,  2]  ]  \\ 

t  [6,  3]]2*  - — — — - *xTcl[[3,  2]]  *  1 - — - —  A  2  + 

V  1  +  a [  [6#  3]  ]  l  l  +  a[[3,2]]  JJ 

(  etface[  [3,  2]  ]  ^  \ 
xTcl[  [3,  2]]  *  1 - - - —  A  2 

l  1  +  «[ [3,  2]  ]  JJ 


ott[[6,  3] ]2  * 


ox[[5,  3] ] 2  * 


0[[6]] 


(l  +  «[[6/  3]  ] )‘ 


((  l  +  a[[5. 


*[[5]]+  ,  rrfi  R11 

1  +  a[  [6,  5]  ] 

etface[ [3/  2]  ] 


( 

(  £t £ace[  [3/  2]]  U  2 

l  “  1  +  a[  [3,  2]]  JJ 

xMo2[[5, 
il  (1  +  «[  [5, 


[[5,  3]] 

J3  [  [6]  ]  *xMC2[[6,  5]  ]  ^  /3  [  [6]  ]  *xMC2[[6,  3]] 


l  +  «[[6,  3]] 


) 


a«[[5,  3] ]  * 


( 


/3[  [5]  ]  + 


3]  ] ) 2 

/3  [  [6]  ]  *xMo2[[6,  5]  ]  \  /3[[6]]  *xMo2[[6,  3]] 


l+«[[6,  5]] 


■) 


l  +  «[[6#  3]] 


ox[[6#  5] ] 2  * 

xMo2 [ [5,  3]] 

"iJT 


/  /  xMo2 [  [5,  3]  ]  ^  /3[  [6]  ]  \ 

[[  1  +  a  [  [5,  3]]  *  l  +  «[[6,  5]]  J 
^x**2[[5, 

\ \  1  +  at  [5/ 


*  xTcl[ [3,  2]  ]  * 


aa[ [6, 


3]]  x  /?  [  [6]  ]  *  xTcl[  [6,  5]] 
3]]  *  (1  +  a[ [6,  5]  ] ) 2 

Efface [ [3,  2]  ] 


f  EtJ 

l1-- 


Efface [ [3,  2]  ] 


+  «[[3,  2]] 


)) 


A2  + 


on  (-,  etface[[3,  2]]  V 
xTcl[  [3,  2]]  *  1-  ■  ——  ~~  I 

l  1  +  a[ [3,  2] ]  J  J 


2  ; 
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a2j!Mol£ace  =  Table [0,  {i,  1,  m},  {k,  1,  m}]  ; 


a2MMo2face  =  Table  [0,  {i,  1,  m},  {k,  1,  m}]; 
a2#Tclface  =  Table [0,  {i,  1,  m},  {k,  1,  m}]  ; 


,  (  epface[  [2,  1]  ]  \ 

a2#Molf ace [  [ 2 ,  1]]  =ax[[2,  l]]2*  — -  11  JJ  A2 

l  1  +  « [ [2#  1]]  ) 


oa[[ 2,  l]]2* 


aepface [ [2,  1]  ]  * 


xMdl[  [2,  1]  ]  *  epface[  [2,  1]  ] 

(1  +  a[  [2,  l]])2 

im 

\  1  +  o[  [2,  11]  I 


,  (  epface[  [2,  1]  ]  1 

a2*Tclface[[2,  1]  ]  =ox[[2,  l]]2*  — -  11  *2 

l  l  +  «[[2,  1]]  ) 


aa[[2,  l]]2* 


aepface [ [2,  1] ] 2  * 


xTcl  [  [2,  1]]  *epface[[2,  1]  ] 
(l  +  a[[2,  l]])2 
pTclt^  I]]) 

V  1  +  «[ [2,  1]]  ) 


2  (  epface[ [3,  1]  ]  \ 

a2*Tclface[[3,  1]  ]  =ox[[3,  l]]2*  — -  “  '  *2 

^  1  +  a[  [3,  1]]  I 

rr„  _2  (  xTcl[[3,  1]]  *epface[[3,  1]  ]  \  ao 

oa[  [3,  1]  ]  *  - - -  2  + 

l  (1  +  «[ [3#  1] ] ) 2  J 

,  (  xTcl[ [3,  1]  ]  \  , 

aepface [  [3#  l]]2*  - - -----  A 2  +ox[[3,  2]]2* 

V  1  +  «[  [3,  1]]  ) 


2  +  ox[  [3,  2]  ] 2  * 


.  V  1  +  «[  [3#  1]]  ) 

epface[  [3,  2]  ]  xTcl[  [2,  1]  ]  *  epfacef  [2,  1]  ]  ) 

1  +  «[  [3#  2]  ]  1  +  ®[  [2#  1]  ]  ) 

xTcl[  [3,  2]]  *epface[[3,  2]]  xTcl[[2#  1]  ]  *  epface[  [2,  1]] 
(1  +  «[  [3,  2]  ] ) 2  l  +  a[[2,  1]] 


aepface [ [3,  2]  ]  * 


A2  +ox[[2#  l]]2* 


(  xTcl[ [3,  2]]  xTcl [ [2,  1]]  *epface[[2,  1]  ]  \  A . 

\  l  +  a[[3,  2]]  l  +  a[[2#  1]]  ) 

xTcl[ [3,  2]  ] *  epface[ [3,  2]  ]  epface[ [2,  1]  ]  \ 
- * -  A 2  +  oaf  [2,  1 

l  +  «[[3,  2]]  l+«[[2,  1]]  J 

xTcl [  [3,  2]  ]  *  epfacet  [3,  2]  ]  xTcl[  [2,  1]  ]  *  epface[  [2,  1]  ] 

-  it  - 


pface[  [2,  1]  ]  \ 

- -  —  A  2  +  aa  [  [2,  1]]' 

1  +  a [ [2,  1]]  / 


1  +  ®[  [3#  2]] 


(l  +  a[[2,  I]])' 


aepface[[2,  1]  ]  * 


2  (  xTcl[  [3,  2]  ]  *  epface[  [3,  2]  ]  xTcl[[2,  1]] 


1  +  «[  [3/  2]] 


xTcl[  [2,  1]]  \  ^  ^ 

1  +  o[  [2,  11]  j  ' 
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,  (  epface[ [4,  1]  ]  ^ 

c250folfar[[4/  1]]  -ox[[  4,  1]  ] 2  *  — - —  — —  A2  + 

V  1  +  «[  [4,  1]]  1 


rrA  (  xMbl[[4,  1]]  *epface[[4,  1]  ] 

aa[  [4,  1]  ]  * -  - 


aepface [ [4,  1]  ] 2  * 


(l  +  «[[4,  1]]) 
(  xMol[ [4,  1]] 

1  1  +  «[  [4,  1]] 


'2  + 


*2  +ctx[[4,  2]  ] 2  * 


epf ace [  [4,  2]  ]  xM©l[  [2,  1]  ]  *  epface[  [2,  1]  ] 


(epf ace  [  [4 
1  +  «[ [4, 


[[4,  2]] 


l  +  «[[2,  1]] 


xMol[ [4,  2]  ]  *  epf ace [ [4,  2]  ]  xMQl[ [2,  1]  ]  *  epface[ [2 
- * - 


(l  +  a[[4,  2]])‘ 


l  +  a[[2,  1]] 


A2  +  aa[  [4,  2]]z  * 
A2  + 


,  1]T 

i 


aepface [ [4,  2]  ]2  * 


/  xMol [  [ 4 ,  2]]  xMol  [  [ 2 ,  1]]  *epface[[2,  1]] 


Itt 


a[[4,  2]] 


l  +  «[[2#  1]] 


xMol[ [4,  2]  ]  *  epf ace [ [4,  2]  ]  epface[ [2,  1]  ] 

- * 


l  +  *[[4,  2]] 


l+«[[2,  1]] 


xMbl[  [4,  2]  ]  *  epf  ace  [  [4,  2]  ]  xMol[  [2,  1]  ]  *  epf  ace  [  [2,  1]  ] 

- * - 


1  +  ®[  [4/  2]] 


A2  +  ctx[[2,  l]]2* 

A 2  +  ct« [  [2,  l]]2* 

A2  + 


aepface [[2,  l]]2* 


(  xMol[  [4,  2]  ]  *  epf  ace  [  [4,  2]  ]  xMbl[  [2,  1]  ] 

-  * 


c2jntolface[  [4,  2]  ]  =  ax  [  [4,  2]  ] 2  *  | 


1  +  «[  [4/  2]] 

epf  ace  [  [4,  2]  ] 


(l  +  a[[2#  1]])' 

xMOl[  [2,  1]]  \  a2  # 

l  +  a[[2,  1]]  j  ; 


c«[[4,  2] ]2  * 


1  +  «[  [4#  2]] 

xMol[  [4,  2]  ]  *  epf  ace  [  [4,  2]  ]  \ 


‘2  + 


(1  +  a [ [4#  2] ] ) ‘ 
/xMOl[[4,  2]] 


A2  + 


,  f  xMol[  [4,  2]]  \ 

aepface[  [4,  2]]2*  - -  A2  ; 

^  l  +  a[[4,  2]]  ) 

epf ace [ [5,  3]  ] 


a2#Mo2f  ace  [  [ 5,  3]]  =  ox  [  [ 5#  3]]  * 
aa[[5,  3] ]2  * 


(• 


l  +  «[[5,  3]] 

xMo2[  [5,  3]  ]  *  epf  ace  [  [5,  3]  ] 


A2  + 


aepface[[5,  3]]2* 


(1  +  «[ [5,  3] ] ) " 
l  xMo2 [ [5#  3]]  \  A2  # 
l  l  +  «[[5,  3]]  i 


A2  + 
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<ra[[6,  3]  ]2  * 


,  /  epface[ [6,  3]  ] 

a2 jtMo2f ace [  [ 6 ,  3]]  =  ox[[6,  3]  ] 2  *  [  — - -  — 

V  1  +  <*[  [6,  3]] 

xMo2  [  [6,  3]]  *  epface[  [6,  3]]  \ 

(1  +  *[  [6/  3]  ]  )2  J 

-  (  xMC2[  [6#  3]  ]  \  _ „ 


,  /  xMo2[ [6,  3]  ]  A 

aepface [  [6,  3]  ]2  *  — - iJ— — if  U2  +  ox[[6,  5]]‘ 

V  1  +  a[  [6,  3]  ]  I 

(  epf ace [  [6,  5]  ]  xMQ2  [  [5,  3]  ]  *  epface[  [5,  3]  ]  ^ 
l  1  +  a[  [6#  5]]  1  +  <*[  [5,  3]]  ) 


1  +  <*[  [5,  3]] 


A2  +  a«[  [6,  5]]2* 


xMo2 [  [6,  5]]  *epface[[6,  5]]  xMt>2[[5,  3]  ]  *  epface[  [5,  3]] 

- * - 

(1  +  a[  [6,  5]  ] ) 2  l  +  a[[5,  3]] 


aepface [ [6,  5] ] 2  * 

j  xMo2  [  [6/  5]]  xMo2  [  [5,  3]]  *epface[[5,  3]] 
l  1  +  a[  [6#  5]]  l  +  «[[5,  3]] 


l  +  a[[5,  3]] 


A2  +  ox[[5,  3]  ] 2  * 


xMo2 [ [6,  5]  ]  *  epf ace [ [6,  5]]  epface[[5,  3]] 


(  xMo2 [ [6,  5]  ]  *  ep 

I  1  +  «[ [6, 


pface[[5,  3]]  ]  . 

- - rr_  A2  +  cto[  [5,  3]] 

l  +  o[[5#  3]]  I 


xMo2  [  [6,  5]  ]  *  epf  ace  [  [6,  5]]  xMo2[[5,  3]  ]  *  epface[  [5,  3]] 

- * - 


l  +  «[[6,  5]] 


(1  +  *[ [5#  3]])' 


^  .  (xWo2[[6,  5]]  *epface[[6,  5]]  xM©2[[5,  3]]\ 

aepface [  [5#  311*  - * -  A2  ; 

LL  \  1  +  «[  [6,  5]]  1  +  «[  [5/  3]]  ) 

,  /  epf  ace  [  [6,  4]  ]  \ 

a2^Molf  ace  [  [  6 ,  4]]  =  ax[[6,  4]]2*  — - A2  + 

V  l  +  a[[6,  4]]  I 


aa[[6,  4] ]2  * 


xMol [ [6,  4]  ]  *  epf ace [ [6,  4]  ] 
(l  +  «[[6,  4]  ] ) 2 
,2  (  xMol[  [6,  4]  ]  \ 


,  (  xMol[  [6,  4]]  \ 

aepface [  [6,  4]]2*  - -  -  A2; 

V  1  +  a[  [6,  4]  ]  J 

,  f  epf ace [ [6,  5]  ]  1 

ct2 JtMolf ace [  [ 6 ,  5]]  =ox[[6,  5]  ] 2  *  — - —  A2 

V  1  +  a  [  [6,  51]  J 


aa[[6,  5] ] 2  * 


aepface [ [6#  5]  ] 2  * 


“  ^  l  +  «[[6,  5]] 

xMo2[ [6#  5]]  *epface[[6,  5]]  1 

(l  +  «[[6,  5]])2  J 

[^Q2[[6,  5]  n 
l  1  +  a[  [€,  5]]  I 


a2  AIMblf  ace  =  Table  [0,  {i#  1 ,  m},  {k,  1#  m}]; 


a2MMo2fa.ce  =  Table [0,  {1,  1,  m},  {k,  1,  m}]; 


cr2  AITc  If  ace  =  Table  [0,  {i,  1,  m},  {k,  1,  m}]; 
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.  I  efface [[2 

a2 AIMolf ace [  [ 4 ,  2]]  =  ox[[2,  l]]2*  1 - 

V  1  +  a[ [2, 

oa[  [2,  l]]2* 


<  efface [ [2,  11]  A 

xMol  [  [2/  1]  ]  * - - - *-—■ 

(l  +  a[[l,  2]])2  J 


efface [ [2,  1]  ] 

i rr 

A2  + 


‘2  + 


cretface[  [2,  1]  ]2  *  fxMOl[  [2,  1]  ]  *  - -  1  — )  A2  ; 

l  1  +  a[  [2,  1]]  J 


a2MMolface[  [6,  4]]  =ctx[[2,  1]  ]  * 


(( j.  HI)  *xM01t[4,  2)]  .  [l-'tto[1,-ill||  A2  ■ 

U  1  +  a[ [2,  1]  ]  J  l  l*o[[4,  2]] 


a«[[2.  1] ]  *  MxMol[[2,  1]]  * 


etface[[2,  1]  ] 
(l  +  «[[2,  l]])2 


/  etface[ [4,  2]  ]  ^ \ 

xMblt[4,  2]]*  1-— - rr;  "--r-  A2  + 

V  l  +  a[[4,  2]]  )) 

retfacef  [2,  1]  ]2  * 

( (xMol [  [2,  1]]  * - - - )  * xMol[  [4,  2]  ]  *  [l-  et£ace[ Hi  2]  ]  )|  A 2 

U  1  +  «[  [2,  1]  ]  J  l  1  +  a[  [4#  2]  ]  JJ 


cx[[4,  2] ] 2  * 


(xMol[  [2,  1]]  *  fl-  £t£ace[[2-  HI)  *  fa..  et  £ace[  [4#  2]  ]  n  A2 
l  l  1  +  a [ [2,  1] ]  j  l  1 +  a [ [4,  2] ]  )) 

*[  [4,  2] ] 2  *  (xMbl[[2,  1]]  * 


k2  + 


efface  [  [2,  1]  ]  ^  „,rrjl  ,  etface[  [4,  2]  ]  ) 

1 - - - — — — - —  *xMol[  [4,  2]  ]  * - - 

{  1  + «[  [1#  2]]  )  (l  +  «[[4,  2]  ] ) 2  J 

oetface[  [4,  2] ] 2  * 

/  (  etface[[2,  1]  ]  \  1  \ 

(xMol[  [2,  1]]*  1-— -  1  *  xMOl  [  [4,  2]  ]  *  - — — —  A2; 

v  v  1  +  [2f  1]]  /  3.  +  <*[[4*2]]/ 


,  f  efface [  [5,  3]  ]  \ 

a2MMb2face[[6#  5]]  =  ox[[5,  3]]2*  1 - — - —  A2 

1  1  +  a[  [5,  3]  ]  ) 

efface [[5,  3]] 


aa[  [5,  3]  ]  *  xMo2[[5,  3]]  * 


(l  +  «t[5,  3]  ] )  " 


l2  + 


aetface[  [5,  3]  ]2  *  (xMo2[  [5,  3]]  *- - A2  ; 

V  l  +  a[[5#  3]]  ) 


aSMolface  =  (Table  [ a2SMolf ace [  [i#  k]  ]  *  #M6lf ace [  [i,  k]  ] 2  *  MMblf  ace [  [k]  ] 2  + 
cr2#Molface[  [i#  k]  ]  *#Molface[  [i]  ]2  *  >MMolface[  [k]  ]2  + 
a2>MMolf ace [  [i,  k]  ]  *#MClface[  [i#  k]  ] 2  *  £Molface[  [i]  ] 2, 

{i#  1,  m},  {k,  1,  m}] )  A 

1 

T' 
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oSMo2face  =  (Table  [ct22JMo2  face  [  [i/  k]  ]  *#Mo2face[  [i,  k]  ]2  *  A1Mo2face[  [k]  ]2  + 
a2#MC2face[  [i,  k]  ]  *£Mo2face[  [i]  ]2  *  Aflfo2face[  [k]  ]2  + 
a2MM02face[  [i,  k]  ]  *flM©2face[  [i,  k]  ]2  *£M02face[  [i]  ]2, 

(i,  1,  m),  {k,  1,  m}])* 

1 

¥' 

oSTclface  =  (Table  [  ct2STc  If  ace  [  [i,  k]  ]  *  tfTclf ace  [  [i,  k]  ] 2  *  /HTclface  [  [k]  ] 2  + 
CT2MTclface[  [i,  k]  ]  * STclf ace [  [i]  ]2  *  A1Tclface[  [k]  ]2  + 
cr2yVtTclface  [  [i,  k]  ]  Tclface[  [i,  k]  ]2  *STclface[  [i]  ]2, 

{i,  1,  m),  {k,  1,  m}])  * 

1 

-  • 

2  ' 

efface  =  crSMolface  +  a5Mo2face  +  oSTclface; 


MatrixForm[  crSf  ace] 


0 

0 

0 

0 

0 

0 

0.00984221 

0 

0 

0 

0 

0 

7 . 55002  x  10"6 

0 

0 

0 

0 

0 

0.000486691 

0.0000222138 

0 

0 

0 

0 

0 

0 

0.000519062 

0 

0 

0 

0 

0 

0.000180138 

0.000288601 

2 . 42517  x  10“7 

0  , 

percentoSfacelist  = 

100*  {oSface [[6,  3]  ]  /  «Sface[  [6,  3]],  a5face[[6#  4]  ]  /  .Sface[  [6,  4]], 
cSf ace [  [6,  5]  ]  /Sface[  [6,  5]  ] ,  c>Sface[  [5,  3]  ]  /Sfacef  [5,  3]  ]  , 
efface [  [4,  1]]  /5face[[4,  1]],  c.Sface[[3,  1]]  /Sface[[3,  1]  ]  , 
cr^face [  [2/  1]]  /.Sface[[2,  1]  ]  ,  ovSface[[4,  2]]  /Sface[[4,  2]]>; 

TableForm  [  Table  [ 

{Mb99gammas[  [i]  ]  ,  Sfacelist[  [1]  ] ,  percentaSf acelist [  [i]  ]  }  ,  {i,  1,  8}  ] , 
TableHeadings  ->  {None,  { "Gairena  (Mev)",  "Peak  Prob,  Face",  ”%  Dev")}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Peak  Prob,  Face 

%  Dev 

0.777921 

0.0024665 

7.3034 

0.7395 

0.00521012 

5.53923 

0.411491 

0.0000125654 

1.93004 

0.366421 

0.00133364 

38.9206 

0.181068 

0.00998895 

4.87229 

0.142675 

0.0000666706 

11.3244 

0.140511 

0.185865 

5.29535 

0.0405845 

0.000275118 

8.07427 

AFTACcpfacelist =  {0.053555,  0.041723,  0,  0.098674,  0.14925,  0,  1,  0); 
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AFTACintensitylist =  {0.0424,  0.1200,  0,  0.0119,  0.0604,  0,  0.8245,  0}; 


AFTACSlist  =  AFTACepf acelist  *  AFTACintensitylist; 


RelDiff  =  Table [100  * 


Sf acelist [ [ i] ]  -  AFTACSlist [ [ i] ] 
AFTACSlist [ [i] ] 


{i,  1,  8}]; 


TableForm[  Table  [  {Mo99gammas  [ [i] ] ,  AFTACSlist  [  [i]  ] , 

Sfacelist [  [i]  ] ,  RelDiff [ [i] ] } ,  {i,  1#  5}],  TableHeadings ->  {None, 
{"Gamma  (Mfev)",  "AFTAC  Face  Prob",  "AFIT  Face  Prob",  "Rel.  %  Diff"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 
0.777921 
0.7395 
0.411491 
0.366421 
0.181068 


AFTAC  Face  Prob 
0.00227073 
0.00500676 
0 

0.00117422 

0.0090147 


AFIT  Face  Prob 
0.0024665 
0.00521012 
0.0000125654 
0.00133364 
0.00998895 


Rel.  %  Diff 
8.62127 
4.06175 

Complexlnf inity 
13.5769 
10.8074 
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Appendix  D:  Analytical  Method  Code  for  Cs-136 

Off [General : : spelll] 

AFTAC  Canberra  Detector  120  peak  efficiency  was  characterized  using  a 
NIST  source  10  cm  above  the  detector.  This  distance  is  large  enough 
to  ensure  that  the  solid  angle  subtended  makes  the  contribution  from 
correlated  cascading  gammas  negligible  by  a  factor  of  Q  shown  below. 

The  following  are  the  dimensions  for  a  Cs-136  disk  source  and  Det#120 
to  calculate  the  solid  angle  subtended.  The  reference  is  Equation 
8.10,  pg.  254,  in  (Tsoulfanidis,  1983). 

Cs-136  disk  source  radius  in  cm.  The  precipitate  area  on  the  planchet 
is  as  follows: 

1.667  cm2  for  Y,  Ce,  Nd,  Sm,  Eu,  Tb 
3.125  cm2  for  Sr,  Zr,  Mo,  Ag,  Cd,  Cs,  Ba 
2.381  cm2  for  U,  Np 


Rsource 


3.125 


7V 


Det#120  crystal  radius  minus  the  Li  contact  in  cm: 


Lidepth  =  0.05; 

Rcrystal  =  6.0/2  -  Lidepth; 

The  thickness  of  the  Al  end  cap  in  cm: 


Aldepth  =  0.16; 

The  spacing  between  the  end  cap  and  lithium  contact  in  cm: 


gap  =  0.5; 

Source  to  detector  distance  in  cm: 

sourceheight  =9.7; 

sourceheight  +  Aldepth  +  gap  +  Lidepth 

z  =  - 

Rsource 


s  =  Rcrystal  /  Rsource 
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BesselJ[l,  p] 

Qfar  =  s*Nlntegrate|Exp[-p*  z]  *BesselJ[l#  (p*  s)  ]  * - # 

L  P 

l P ,  0,  10}] 

0.0188295 

Thus,  summing  contributions  are  about  two  percent  of  the  total  counts 
of  the  correlated  energy  peaks. 

The  following  are  the  efficiency  function  coefficients  for  Detector 
120  with  the  disk  source  at  10cm.  The  efficiency  is  calibrated  only 
between  0.059  and  1.836  MeV.  The  error  in  the  peak  efficiencies  for 
the  calibrated  range  is  no  larger  than  1.5%  as  Capt  Weimer,  AFTAC/TOD, 
stated  on  25  Jul  97. 

cl = -5.927; 

c2  =  -0.8438; 

c3  =  -0.02031; 

c4  =  -  .00007080; 

c5 =  .02496; 

c6  =  .01560; 

The  following  is  the  peak  efficiency  function  with  the  disk  source  at 
10  cm. 


epds5sfar[e_]  = 

Exp  [cl  +  c2*Log[e]  +  c3  *  (Log[e])  A2  +  c4  *  (Iog[e])  A3  + 
c5  *  (Log[e] )  A4  +  c6  *  (Log[e] )  A5] ; 
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Plot [epds5sfar [e]  /  {e,  .02,  2.},  PlotRange  ->  All, 

Frame  ~>  True,  GridLines  ->  Automatic,  PlotLabel  -> 
nDet#120  Absolute  Peak  Efficiency  with  Disk  Source  10cm  Above", 
FraxneLabel  ->  {"Energy  (MfcV)  ",  "e  peak"}] 


_J . _ , i _ , I , _ * , _ . 1 l , . _ . I . - ■ . - * L_ 

0  0.5  1  1.5  2 

EnergyHMe\L 


-  Graphics  - 

The  following  are  the  Mo-99  gamma  energies  of  interest  with  their 
corresponding  peak  efficiencies. 

Csl36gamnas =  {1.235362,  1.048073,  .818514,  .507188,  .340547, 
.319911,  .273646,  .187285,  .176602,  .166576,  .163920, 

.153246,  .109681,  .08636,  .066881}; 

spds5sfarlist  =  Table  [epds5sfar[Csl36gaxnmas[  [i]  ]  ]  ,  {i,  1,  15}  ]  ; 

The  row  and  column  numbers  of  the  matrix  element  represent  the 
transition  from  level  i  to  k . 
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cpfar  = 

{{0,  0,  0,  0,  0,  0,  0,  0},  (epds5sf arlist [  [3]  ] ,  0,  0,  0,  0,  0,  0,  0), 
{0,  epds5sf arlist [  [2]  ] ,  0,  0,  0,  0,  0,  0}, 

{0,  0,  epds5sf arlist [  [  11]  ] ,  0,  0,  0,  0,  0},  {0,  epds5sf arlist [[ 1]  ] , 
epds5sfarlist [  [8]  ] ,  0,  0,  0,  0,  0},  {0,  0,  epds5sfarlist [ [7] ] , 
epds5sf arlist [ [13] ] ,  epds5sf arlist [ [14] ] ,  0,  0,  0},  {0,  0, 
epds5sf arlist [ [5]  ] ,  spdsSsf arlist [ [9]  ]  ,  epds5sf arlist [ [12]  ] , 
epds5sf arlist [ [15] ] #  0,  0},  {0,  0,  epds5sfarlist [ [4] ] , 

0,  epds5sf arlist [ [6] ] ,  0,  epds5sf arlist [ [10] ] ,  0}}; 

The  density  (g/cm3)  at  300K  is  assumed  to  be  similar  to  actual 
conditions  of  77K  for  Ge  and  Li.  The  reference  is  (Turner,  1995). 

Gedensity  =  5.32; 

Aldensity  =  2.70; 

Lidensity  =  0.53; 

The  atomic  weight  is  in  atoms  per  gram.  The  reference  is  (Turner, 

1995) . 

6.022*  1023 

Geatosnicweight  =  - ; 

72.59 

Geatomden  =  Gedensity*  Geatamicweight; 

6.022*  1023 

Alatomicweight  =  - ; 

26.98154 

Alatosnden  =  Aldensity  *  Alatomicweight; 

6.022*  1023 

Liatomicweight  =  - ; 

6.941 

Liatomden  =  Lidensity*  Liatomicweight; 

The  following  is  a  table  of  the  compton  scattering,  photoelectric,  and 
pair  production  cross  sections  in  Ge,  Al,  and  Li  which  will  be  turned 
into  an  interpolation  function  for  use  in  computing  total  efficiencies. 
The  reference  is  the  Brookhaven  National  Laboratory  website  at  TELNET 
bnlnd2.dne.bnl.gov,  23  Jul  1997.  The  gamma  energies  are  in  MeV  and 
the  cross  sections  in  cm2 . 
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Gedata  =  Table[{{  .02,  (12.38  +  4996.)  *  10'24  *  Geatamden} , 

{.03,  (14.00  +  1610.)  *10'24  * Geatamden), 

{.04,  (14.75  +  704.5)  *  10'24  *  Geatamden)  , 

{.05,  (15.05  +  367.0)  *  10-24  *  Geatamden) , 

{.06,  (15.12  +  214.0)  *  10"24  *  Geatamden) , 

{.08,  (14.94  +  90.61)  *  10"24  *  Geatamden) , 

{.10,  (14.59  +  46.24)  *  10‘24  *  Geatamden), 

{.15,  (13.57  +  13.56)  *  10'24  *  Geatamden), 

{.20,  (12.63  +  5.706)  *  10*24  *  Geatamden) , 

{.30,  (11.13  +  1.733)  *10'24* Geatamden), 

{.40,  (10.03+  .7731)  *  10-24  *  Geatamden) , 

{.50,  (9.188  +  .4270)  *  10'24  *  Geatamden) , 

{.60,  (8.516+  .2699)  *  10-24  *  Geatamden)  , 

{.80,  (7.497+ .1379)  *10‘24* Geatamden), 

{1.0,  (6.747+  .08585)  *  10-24  *  Geatamden), 

{1.022,  (6.676+  .08158)  *10‘24* Geatamden), 

{1.25,  (6.038+  .05512  +  .  01073)  *  10’24  *  Geatamden) , 

{1.5,  (5.490+  .03968+  .05320)  *  10"24  *  Geatamden) , 

{2.0,  (4.687+  .02437+  .1971)  *  10*24  *  Geatamden) , 

{2.044,  (4.629+  .02353+  .2116)  *  10’24  *  Geatamden)  , 

{3.0,  (3.689+  .01314+  .5378)  *  10'24  *  Geatamden)  )]  ; 

ZGe  =  Interpolation  [Gedata]  ; 

The  macroscopic  cross  sections  (in  1/cm)  of  Ge  for  the  Cs-136  gamma 
energies  are  below: 

f 

EGelist = Table [EGe[Csl36gammas[ [i] ]] ,  {1,  1,  15)]; 

EGem  =  {{0,  0,  0,  0,  0,  0,  0,  0),  { EGelist [  [3]  ]  ,  0,  0,  0,  0,  0,  0,  0), 

{0,  EGelist [  [2]  ] ,  0,  0,  0,  0,  0,  0), 

{0,  0,  EGelist  [  [11]  ] ,  0,  0,  0,  0,  0), 

{0,  EGelist [  [1]  ]  ,  EGelist  [  [8]  ] ,  0,  0,  0,  0,  0), 

{0,  0,  EGelist  [  [7]  ] ,  EGelist [  [13]  ]  ,  EGelist  [  [14]  ]  ,  0,  0,  0),  {0,  0, 
EGelist [ [5] ] ,  EGelist [ [9] ] ,  EGelist [ [12]  ] ,  EGelist [ [15] ] ,  0,  0), 
{0,  0,  EGelist [ [4] ] ,  0,  EGelist [ [6] ] ,  0,  EGelist [ [10] ] ,  0}}; 
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Aldata  =  Table [  {  {  . 02,  (6.142  +  138 . 9)  *  10'24  *  Alatamden} , 

{.03,  (6.561  +  39.08)  *  10'24  *  Alatomden) , 

{.04,  (6.695  +  15.70)  *  10'24  *  Alatamden} , 

{.05,  (6.702  +  7.696)  *  10'24  *  Alatomden) , 

{.06,  (6.645  +  4.285)  *  10'24  *  Alatomden) , 

{.08,  (6.447  +  1.695)  *  10"24  *  Alatomden) , 

{.10,  (6.218+  .8254)  *  10'24  *  Alatomden), 

{.15,  (5.678+  .2237)  *  10"24  *  Alatamden} , 

{.20,  (5.233+  .08970)  *  10‘24  *  Alatamden}  , 

{.30,  (4.573+  .02573)  *  10'24  *  Alatamden)  , 

{.40,  (4.105+  .01111)  *  10‘24  *  Alatamden)  , 

{.50,  (3.752+  .006021)  *  10'24  *  Alatomden)  , 

{.60,  (3.474+  .003764)  *  10'24  *  Alatamden)  , 

{.80,  (3.053+  .001905)  *  10-24  *  Alatamden) , 

{1.0,  (2.746+  .001184)  *  10‘24  *  Alatamden)  , 

{1.022,  (2.717+  .001115)  *  10'24  *  Alatamden)  , 

{1.25,  (2.456+ .0007562  +  .001404)  *  10’24  *  Alatomden), 

{1.5,  (2.232+  .0005476+  .007652)  *  10‘24  *  Alatomden) , 

{2.0,  (1.905+  .0003420+  .03023)  *  10"24  *  Alatomden}  , 

{2.044,  (1.882+  .0003307+  .03258)  *  10‘24  *  Alatamden)  , 

{3.0,  (1.499+  .00031892+  .08595)  *  10'24  *  Alatomden)  }]  ; 

EAl  =  interpolation  [Aldata]  ; 

The  macroscopic  cross  sections  (in  1/cm)  of  Al  for  the  Cs-136  gamma 
energies  are  below: 

EAllist  =  Table [ZAl [Csl36gamnas [  [i]  ]]  ,  {i,  1,  15}]; 

EAlm  =  {{0,  0,  0,  0,  0,  0,  0,  0),  {EAllist [  [3]  ] ,  0,  0,  0,  0,  0,  0,  0), 
{0,  EAllist [  [2]  ] ,  0,  0,  0,  0,  0,  0), 

{0,  0,  EAllist [  [11]  ] ,  0,  0,  0,  0,  0), 

{0,  EAllist  [  [1]  ] ,  ZAllist  [  [8]  ]  ,  0,  0,  0,  0,  0), 

{0,  0,  EAllist [  [7]  ] ,  ZAllist[  [13]] ,  EAllist [  [14]  ] ,  0,  0,  0),  {0,  0, 
EAllist [[5]],  EAllist [ [9] ] ,  EAllist [[12]],  EAllist [ [15] ] ,  0,  0), 
{0,  0,  EAllist [[4]],  0,  EAllist [[6]],  0,  EAllist [ [10] ] ,  0}}; 
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Lidata  =  Table [  {  {  .02,  (1.702  +  .1516)  *  10"24  *  Liatamden}  , 

(.03,  (1.718+  .03841)  *  10'24  * Liatomden} , 

{.04,  (1.692+  .01445)  *  10*24  * Liatomden} , 

{.05,  (1.656+  .006770)  *  10‘24  *  Liatomden}  , 

{.06,  (1.617+  .003645)  *  10'24  *  Liatomden}  , 

{.08,  (1.540+  .001373)  *  10"24  *  Liatomden}  , 

{.10,  (1.471  +  .0006464)  *  10"24  *  Liatomden}  , 

{.15,  (1.328+  .0001666)  *  10'24  *  Liatomden}  , 

{  .20,  (1.218  +  .00006481)  *  10"24  *  Liatomden} , 

{ .30,  (1.060  +  .00001796)  *  10'24  *  Liatomden} , 

{.40,  (.9499  +  7.615*10-®)  *  10‘24  *  Liatomden}  , 

{.50,  (.8676  +  4.081*10-®)  *  10-24  *  Liatomden}  , 

{.60,  (.8027  +  2.533*10'®)  *  10*24  *  Liatomden} , 

{.80,  (.7053  +  1.276*10  ®)  *  1024  *  Liatomden} , 

{1.0,  (. 6341  +  7. 939*10‘7)  *  10‘24  *  Liatomden} , 

{1.022,  (. 6274 +  7. 038 *  10‘7 )  *10‘24* Liatomden}, 

{1.25,  ( .5670  +  4.788*  10"7  +  7.052*10-®)  *  10-24  *  Liatomden} , 

{1.5,  (.5154  +  3.486  *  lO’7  +  .0003953)  *  10  24  *  Liatomden}  , 

{2.0,  ( .4398  +  2.212  *  10~7  +  .001583)  *  10'24  *  Liatomden}  , 

{2.044,  (.4344  + 2.141*  lO'7  +  .001707)  *  10-24  *  Liatomden} , 

{3.0,  (.  3460  +  1. 250  *  10'7  +  .004545)  *  10'24  *  Liatomden}}  ]  ; 

ZLi  =  Interpolation  [Lidata]  ; 

The  macroscopic  cross  sections  (in  1/cm)  of  Li  for  the  Mo-99  gamma 
energies  are  below: 

ZLilist  =  Table [ZLi[Csl36gaxrmas [  [i]  ]]  ,  {i,  1,  15}]; 

ZLim  =  {{0,  0/  0,  0,  0,  0#  0,  0},  {ZLilist  [  [3]  ] ,  0,  0,  0,  0#  0,  0,  0}# 

{0,  ZLilist [  [2]  ] ,  0,  0,  0,  0,  0,  0}, 

{0,  0 ,  ZLilist  [  [11]  ]  g  0,  0,  0,  0,  0}, 

{0/  ZLilist [  [1]  ]  /  ZLilist [  [8]  ]  ,  0,  0,  0,  0,  0}, 

{0,  0,  ZLilist [ [7] ] §  ZLilist [ [13] ],  ZLilist [ [14]  ] ,  0,  0,  0} ,  {0,  0, 
ZLilist [ [5] ] ,  ZLilist [ [9] ] ,  ZLilist [ [12] ] ,  ZLilist [ [15] ] ,  0,  0}, 
{0,  0,  ZLilist [ [4] ],  0,  ZLilist [ [6]  ],  0,  ZLilist [ [10] ] ,  0}  } ; 


To  review  and  compare  the  macroscopic  cross  sections  of  the  elements 
involved: 


G97DENP09_ApD.nb 


159 


TableFoxm[  Table [ {Csl36gammas [ [i] ] ,  LGelist[ [i] ] , 

SAllist [  [i]  ]  ,  LLilist[[i]]},  {i,  1,  15}]r  TableHeadings -> 
{None,  { "Mev",  "LGe  (l/cm)n,  "LAI  (1/cm)",  "2 Li  (1/can)  "}}/ 
TableAl  ignment  s  ->  Center] 


Mev 

2Ge  (1/cm) 

2A1  (1/cm) 

ZLi  (1/cm) 

1.235362 

0.270967 

0.149026 

0.026236 

1.048073 

0.294437 

0.161784 

0.0284955 

0.818514 

0.333168 

0.182133 

0.0320856 

0.507188 

0.421267 

0.22511 

0.0396563 

0.340547 

0.519014 

0.263977 

0.0464761 

0.319911 

0.541161 

0.270399 

0.0475881 

0.273646 

0.783189 

0.291284 

0.0504276 

0.187285 

1.06751 

0.333599 

0.0571857 

0.176602 

1.15798 

0.341143 

0.058227 

0.166576 

1.18203 

0.346728 

0.0592544 

0.16392 

1.18355 

0.348101 

0.0595353 

0.153246 

1.19032 

0.353753 

0.0607041 

0.109681 

2.44549 

0.413162 

0.0662532 

0.08636 

4.06767 

0.471788 

0.0698017 

0.066881 

7.30136 

0.572063 

0.073228 

To  better  simulate  the  response  of  the  detector,  the  A1  end  cap  and  Li 
contact  will  be  included  to  account  for  their  attenuation. 

The  path  length  of  a  gamma  through  the  end  cap  and  contact  in  cm. 

Since  the  end  cap  and  contact  extend  beyond  the  crystal,  there  are  no 
vertical  edges  affecting  the  path  length  for  this  simplified  approach. 

xAl  [£_]  =  Aldepth  /  f ; 

xLi  [£_]  =  Lidepth  /  f; 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the 
five-sided  detector  crystal  with  a  point  source.  The  references  are 

(Camp  and  Van  Lehn,  1969),  pg.  237-238,  (McCallum  and  Coote,  1975),  pg. 
192,  and  (Heath,  1964),  pg.  21. 

The  radial  depth  of  the  five-sided  crystal  in  cm: 

Rdd  =  (6.0  -  0.8  -  2  *  Lidepth)  /2; 

The  axial  depth  of  the  five  sided  crystal  in  cm: 

Add  =5.1  -  3  •  65  -  Lidepth; 

The  crystal  length  in  cm: 
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Lcrystal  =  5.1  -  Lidepth; 

The  limits  of  integration  for  the  five-sided  cylinder: 

Array [Aps5sfar,  4]; 

Array [Bps5sfar,  4]; 

Array [xps5s far,  4]; 

Bps5sfar[4]  =Cos[0]; 

Aps5sfar[4]  =  Cos[ArcTan[  (Rcrystal  -  Rdd)  / 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 

xps5sfar[4]  [f_]  =  Add /  f  ; 

Bps5sfar[3]  = ApsSsfar [4] ; 

Aps5sfar[3]  = 

r  (Rcrystal  -  Rdd) 

ArcTanl - 

L  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add) 

xps5sfar[3]  [£_]  = 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal  +  Add)  /  f  - 
(Rcrystal  -  Rdd)  /  V 1  -  € 2  ; 

Bps5sfar[2]  = ApsSsfar [3] ; 

ApsSsfar  [2]  =  Cos  [ArcTan[ 

Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ] ; 
xps5sfar[2]  [£_]  =  Lcrystal /f; 

Bps5sfar[l]  = Aps5sfar[2] ; 

Aps5sfar[l]  = 

Cos [ArcTan[ Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ] ; 
xps5sfar[l]  [f_]  = 

Rcrystal /  V 1  -  f 2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  f  ; 

etps5sfar[e_]  := 

1  4 

—  »  y1  NIntegrate [  (1  -  Exp[-ZGe[e]  *xps5sfar[i]  [f]])  * 

Exp[-SAl[e]  * xAl [£]  -  SLi[e]  *xLi[f]  ] , 

{£,  ApsSsfar [ i] ,  Bps5sfar[i] } ] 
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The  total  efficiency  for  the  five-sided  cylinder  with  a  point  source 
10  cm  above  for  the  Cs-136  gamma  energies: 

etps5sfarlist  =  Table[etps5sfar[Csl36gammas[  [n]  ]  ] ,  {n,  1,  15}]; 

etps5s£arm  = 

{{0,  0,  0,  0,  0,  0,  0,  0},  {etps5sf arlist  [  [3]  ] ,  0#  0,  0,  0,  0,  0#  0}, 
{0,  etps5sfarlist[  [2]  ] ,  0,  0,  0,  0,  0,  0}, 

{0,  0,  etps5sf arlist [  [11]  ] ,  0,  0,  0,  0,  0},  (0,  etps5sfarlist [  [1]  ] , 
e tps5sf arlist [  [8]  ] ,  0,  0,  0,  0,  0},  {0,  0,  etps5sfarlist  [  [7]  ] , 
etps5sfarlist [ [13] ] ,  etps5s£arlist [ [14] ] ,  0,  0,  0},  {0,  0, 
etps5sf arlist [ [5] ] ,  etps5sf arlist [ [9] ] ,  etps5sfarlist[ [12] ] , 
etps5sfarlist [ [15] ] ,  0,  0},  {0,  0,  etps5sfarlist [ [4] ] , 

0,  etps5sfarlist[ [6] ] ,  0,  etps5sfarlist [ [10] ] ,  0}}; 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the 
solid  cylindrical  detector  crystal  with  a  point  source  10cm  above. 

The  references  is  (Heath,  1964),  pg.  21. 

The  limits  of  integration  for  the  solid  cylinder  with  a  point  source: 


Array [Aps3sfar,  2] ; 

Array [Bps3sfar,  2]; 

Array [xps3sfar,  2] ; 

Bps3sfar[2]  =  1; 

Aps3sfar[2]  =  Cos [ArcTan[ 

Rcrystal  /  ( sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps3sfar [2] [f_]  = Lcrystal /  f ; 

Bps3s£ar [1]  = Aps3sfar[2] ; 

Aps3s£ar[l]  = 

Cos [ArcTan[ Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 


xps3sfar[l] [f_]  = 

Rcrystal /  V 1  -  f 2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  / 


etps3sfar[e_]  :  = 

1  ^ 

—  »  y  NIntegrate [  (1  -  Exp[-EGe[e]  *xps3sfar[i]  [f]])  * 

2  hi 


Exp[-EAl[e]  *xAl[£]  -  ELi[e]  *xLi[f]], 
{?,  Aps3sfar[i] ,  Bps3s£ar[i] }]  ; 
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etps3s£arlist  =  Table [etps3sfar[Csl36gammas [  [n]  ]] ,  (n,  1,  15}]; 
etps3sfarm  = 

{{0,  0,  0,  0,  0,  0,  0,  0},  {etps3sfarlist[ [3] ] ,  0#  0,  0,  0,  0#  0#  0}# 
{0,  etps3sf arlist [  [2]  ] ,  0,  0,  0,  0,  0,  0}, 

{0,  0,  etps3sf arlist [  [11]  ]  ,  0,  0,  0,  0,  0},  {0,  etps3sf arlist [  [1]  ] , 
etps3sfarlist[  [8]  ] ,  0,  0,  0,  0,  0},  {0,  0,  etps3sfarlist  [  [7]  ]  , 
e tps3sf arlist [ [13] ] ,  etps3sf arlist [ [14] ] ,  0,  0,  0},  (0,  0, 
etps3sf arlist [ [5] ] ,  etps3sf arlist [ [9] ] ,  ctps3sfarlist[ [12] ] , 
etps3sf arlist [ [15] ] ,  0,  0}#  {0#  0,  etps3sfarlist [ [4] ] , 

0,  etps3sf arlist [ [6] ] ,  0,  etps3sfarlist [ [10] ] ,  0}}; 

The  following  is  the  equation  to  compute  the  total  efficiency  of  the 
solid  cylindrical  detector  crystal  with  a  disk  source  10  cm  above. 

The  references  is  Scintillation  Spectrometry  2nd  Ed. .  Heath,  R. ,  1964, 
pg.  21. 

The  limits  of  integration  for  the  solid  cylinder  with  a  disk  source: 


Alds3sfar  =  Cos [0] ; 
Blds3sfar[tf>_,  p_]  = 


.  -p*Sin[0]  +  Vp2*( Sin[0])2  -  (p2  -  Rcrystal2  ) 

Cos  I  ArcTan  I -  ; 

1  1  sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 

xlds3sfar [ f_]  =  Lcrystal /  St 

A2ds3sfar  [</>_,  p_]  = 

-p*Sin[0]  +  ^fp2  *  (Sin[</>] ) 2  -  (p2  -  Rcrystal2  ) 


Cos [ArcTan [  ■ 

L  1  sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 

B2ds3sfar [0,  p_]  = 

-p  *  Sin[tf>]  +  -\/p2  *  (Sin[tf>]  )2  -  (p2  -  Rcrystal2  ) 


Cos [ArcTan [■ 


sourceheight  +  Aldepth  +  gap  +  Lidepth 
x2ds3sfar[£_,  <p_,  p_]  = 

-p*Sin[0]  +  -  (p2  -  Rcrystal2  ) 

Vw1 

(sourceheight  +  Aldepth  +  gap  +  Lidepth) 


■}]’ 


]] 
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etds3sfarl[e_]  :  =  - -  |  reintegrate  [ 

n  (Rsource) 2  ' 

NIntegrate [ 

NIntegrate [ 

(1  -  Exp[-SGe[o]  *xlds3sfar[£]  ] )  * 

Exp[-ZAl[e]  *xAl[£]  -  ZLi  [e]  *xLi[f]  ] , 

{f#  Blds3sfar[0,  p] ,  Alds3sfar}]  ,  {<fi,  ,  ^-}]  *p, 

A  A 

{p,  0,  Rsource}]] 

etds3sfarllist = Table [etds3sfarl [Csl36gaxmnas  [ [n] ]] ,  {n,  1,  15}]; 

etds3sfar2[e_]  :=  - — -  (NXntegrate  [ 

7r  (Rsource)2  ' 

NIntegrate [ 

NIntegrate [ 

(1  -  Exp[-£Ge[e]  *x2ds3sfar[f ,  <p,  p]  ] )  * 

Exp[-2Al[e]  *xAl[f]  -  SLi [e]  *xLi[f]], 

{f,  B2ds3sfar[$,  p] ,  A2ds3sfar[£,  p]}]  #  {<f>,  ,  -^-}]  *p, 

{p,  0,  Rsource}]) 

£tds3sfar21ist  =  Table  [etds3sfar2  [Csl36gaitimas[  [n]  ]  ]  ,  {n,  1#  15}  ]  ; 
etds3sfarlist  =  £tds3sfarll±st  +  £tds3sfar21ist; 
etds3sfarm  = 

{{0,  0,  0,  0,  0,  0,  0,  0},  {£tds3sfarlist[  [3]  ]  #  0,  0,  0,  0,  0,  0,  0}, 
{0,  £tds3sfarlist[ [2] ] ,  0,  0,  0,  0,  0,  0}, 

{0,  0,  £tds3sfarlist  [  [11]  ]  ,  0,  0,  0,  0,  0},  {0,  etds3sfarlist  [  [1]  ] , 
£tds3sfarlist[  [8]  ] ,  0,  0,  0,  0,  0},  { 0,  0,  £tds3sfarlist [  [7]  ]  , 
£tds3sfarlist[ [13] ] ,  £tds3sfarlist [ [14] ] ,  0,  0,  0},  {0,  0, 
£tds3sfarlist[ [5] ] ,  £tds3sf arlist [ [9]  ]  ,  £tds3sfarlist [ [12] ] , 
£tds3sfarlist [ [15] ] ,  0,  0},  {0,  0,  £tds3sfarlist [ [4] ] , 

0,  £tds3sfarlist [ [6] ] ,  0,  etds3sf arlist [ [10] ] ,  0}  }  ; 

The  following  table  shows  the  contribution  of  each  zone  to  the  total 
efficiency  of  the  three-sided  cylinder  with  a  disk  source. 

TableForm[Table[{£tds3sfarllist[  [i]  ]  , 

£tds3sfar21ist [ [i] ] #  e tds3sf arlist [ [i] ]} ,  {i,  1,  15}], 
TableHeadings  ->  {None,  {"Inner  Cone  Total  Eff.", 

"Outer  Wedge  Total  Eff.",  "Sum  Total  Eff."}}, 

TableAlignments  ->  Center]  ; 
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The  following  is  the  equation  to  compute  the  total  efficiency  of  the 
five-sided  cylindrical  detector  crystal  with  a  disk  source  10  cm  above. 
It  is  assumed  the  ratio  of  the  five-sided  to  three-sided  crystal  total 
efficiencies  using  a  point  source  at  a  given  distance  is  the  same  for 
using  a  disk  source  at  the  same  distance. 

£tps5sfarlist 

etds5sfarl±st  =  - *  etds3sfarlist; 

etps3sfarlist 

etfar  = 

{{0,  0,  0,  0,  0,  0,  0,  0} ,  {£tds5sfarlist [  [3]  ] ,  0,  0,  0#  0,  0#  0,  0}# 
{0/  £tds5sfarlist  [  [2]  ]  ,  0,  0,  0,  0,  0,  0}, 

{0,  0,  EtdsSsfarlist [ [11] ] ,  0,  0,  0„  0,  0}#  {0,  £tds5sfarlist  [  [1]  ]  , 
etdsSsfarlist [  [8]  ]  ,  0,  0,  0,  0,  0},  {0,  0/  etdsSsfarlist [  [7]  ]  # 
£tds5sfarlist [ [13] ] ,  EtdsSsfarlist [ [14] ] 7  0#  0,  0},  {0,  0, 
etdsSsfarlist [ [5] ] #  etdsSsfarlist [ [9] ] ,  etdsSsfarlist [ [12] ] , 
etdsSsfarlist [ [15] ] ,  0,  0},  {0,  0,  etdsSsfarlist [ [4] ] , 

0/  etdsSsfarlist [ [6] ] ,  0,  etdsSsfarlist [ [10] ] #  0}}; 

The  following  is  the  peak  to  total  efficiency  ratio  which  is  presumed 
to  be  independent  of  distance.  This  ratio  will  allow  finding  the  peak 
efficiency  from  the  calculated  total  efficiency  with  a  disk  source  on 
the  face  of  the  detector.  The  reference  is  Equation  11  and  text, 

(McCallum  and  Coote,  1975),  pg.  192. 

£pds5sfarlist 

PKtoTTLdsSslist  =  - ; 

etdsSsfarlist 
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TakleForm[Takle[{Csl36gamnas[  [i]  ] ,  etdsSsfarlist  [  [i]  ]  , 
epdsSsf arlist [ [i] ] #  PKtoTTLdsSslist [ [i] ] },  {i,  1 #  15}]  , 
TableHeadings ->  (None,  {"Mev",  "etdsSs",  "epdsSs",  "P/T"}}, 
TableAlignments  ->  Center] 


Mev 

etds5s 

epdsSs 

P/T 

1.235362 

0.0101983 

0.002229 

0.218565 

1.048073 

0.0106328 

0.00256278 

0.241024 

0.818514 

0.0112624 

0.00315491 

0.280127 

0.507188 

0.0123716 

0.00469878 

0.379804 

0.340547 

0.0132356 

0.00653519 

0.493757 

0.319911 

0.0133956 

0.00687769 

0.513429 

0.273646 

0.0146551 

0.00779652 

0.532001 

0.187285 

0.0153411 

0.0102609 

0.668851 

0.176602 

0.0154929 

0.0106358 

0.686494 

0.166576 

0.0155193 

0.0109936 

0.708381 

0.16392 

0.0155181 

0.0110884 

0.714546 

0.153246 

0.0155142 

0.0114644 

0.738966 

0.109681 

0.0164054 

0.0124301 

0.757679 

0.08636 

0.0166731 

0.0115871 

0.694961 

0.066881 

0.0166939 

0.00896527 

0.53704 

TableForm[Table[{Csl36gaznnas[  [i]  ]  ,  etds3s£arlist  [  [i]  ]  , 
e tps5sf arlist [ [i] ] ,  e tps3sf arlist f [i] ]} #  (i#  1,  15}] , 
TableHeadings ->  {Nbne,  {nMev"#  netds3sn,  netps5sn#  netps3sH}  } # 
TableAlignments  ->  Center] 


Mev 

etds3s 

£tps5s 

£tps3s 

1.235362 

0.0102858 

0.0102377 

0.0103256 

1.048073 

0.0107211 

0.0106746 

0.0107632 

0.818514 

0.0113509 

0.0113078 

0.0113965 

0.507188 

0.012457 

0.0124239 

0.0125097 

0.340547 

0.0133146 

0.0132941 

0.0133734 

0.319911 

0.0134729 

0.0134553 

0.0135329 

0.273646 

0.0147133 

0.0147253 

0.0147838 

0.187285 

0.0153802 

0.0154187 

0.015458 

0.176602 

0.0155273 

0.0155723 

0.0156068 

0.166576 

0.0155524 

0.015599 

0.0156324 

0.16392 

0.0155512 

0.0155979 

0.0156312 

0.153246 

0.0155469 

0.015594 

0.0156269 

0.109681 

0.0164108 

0.0164973 

0.0165026 

0.08636 

0.0166736 

0.01677 

0.0167706 

0.066881 

0.0166939 

0.0167939 

0.0167939 

Next,  the  total 

efficiency  of 

the 

three-sided 

crystal  with  the 

source  on  the  detector  face  is 

shown  below. 

(The  procedure  of 

the  ratios  of  the  efficiencies 

is 

repeated  to 

find  the  total 

efficiency  for  the  five-sided  crystal.)  The  distance  in  cm  between 
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the  detector's  face  and  crystal  includes  the  thickness  of  the  Al  can, 
the  axial  space  (vacuum),  and  the  Li  contact. 

sourceheight  =0; 

The  limits  of  integration  for  the  five-sided  cylinder: 

Array  [ApsSsf  ace,  4]; 

Array  [BpsSsf  ace,  4]; 

Array  [xps 5s face,  4] ; 

Bps5sface[4]  =Cos[0]; 

Aps5sface[4]  =  Cos[ArcTan[  (Rcrystal  -  Rdd)  / 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 

xps5sface[4]  [f_J  =  Add/f; 

Bps5sface[3]  = Aps5sface[4] ; 

Aps5sf  ace  [  3  ]  =  Cos  [  ArcTan  [ 

(Rcrystal  -  Rdd)  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Add)  ]  ] ; 
xps5sface[3] [f_]  = 

(sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal  +  Add)  /  f  - 
(Rcrystal  -  Rdd)  /  V 1  -  ?2  ; 

Bps5sface[2]  = Aps5sface[3] ; 

Aps5sface[2]  =  Cos  [  ArcTan  [ 

Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ]  ; 
xps5sface[2] [f_]  = Lcrystal /  f; 

Bps5sface[l]  =  Aps5sface[2] ; 

Aps5sface[l]  = 

Cos  [ArcTan [Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 
xps5sface[l] [f_]  = 

Rcrystal /  Vl  -  €2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  f ; 

£tps5sface[e_]  s  = 

1  4 

-TT  +  Y. NIntegrate [  ( 1  -  Exp[-2Ge[e]  *xps5sface[i]  [f]])  * 

Exp[-£Al[e]  *xAl[f]  -  SLi[e]  *xLi[f]  ]  , 

{£,  Aps5sface[i] ,  Bps5sface[i] }] ; 
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etps5sfacelist  =  Table [etps5sf ace [Csl36gammas [  [n]  ]]  ,  {n,  1,  15}]; 
The  limits  of  integration  for  the  solid  cylinder  with  a  point  source: 

Array [Aps3sf ace,  2] ; 

Array [Bps3s£ace,  2]  ; 

Array [xps3sf ace,  2]; 

Bps3sface[2]  =Cos[0]; 

Aps3sface[2]  =  Cos  [ArcTan[ 

Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal)  ]  ] ; 
xps3sface[2]  [£_]  =  Lcrystal  /f; 

Bps3sface[l]  =  Aps3sface[2] ; 

Aps3sface[l]  = 

Cos  [ArcTan[ Rcrystal  /  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  ]  ]  ; 
xps3sface[l] [f_]  = 

Rcrystal /  V 1  -  f2  -  (sourceheight  +  Aldepth  +  gap  +  Lidepth)  /  g ; 

etps3sface[e_]  := 

1  2 

—  *  ^Integrate  [  ( 1  -  Exp[-2Ge[e]  *xps3sface[i]  [£]])* 

Exp [ -ZAl  [e]  *xAl[f]  -  SLi[e]  *xLi[f]  ]  , 

{f,  Aps3sface[i] ,  Bps3sface[i] }] ; 

£tps3s£acelist  =  Table [etps3sf ace [Csl36gammas[  [n]  ]]  ,  {n,  1,  15}]; 

The  limits  of  integration  for  the  solid  cylinder  with  a  disk  source: 

Alds3sface  =  Cos[0] ; 

Blds3sface[0_,  p_]  = 

Cos[ArcTan[ 

xlds3sface[f_]  =  Lcrystal  /  f ; 

A2ds3  s  face  [  <f>_ ,  p_]  = 

Cos  [ArcTan[ 


-p*Sin[0]  +  -y  p2  *  (Sin[0]  )2  -  (p2  -  Rcrystal2) 
sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 


-p*Sin[0]  +  y  p2  *  (Sin[0]  )2  -  (p2  -  Rcrystal2) 

sourceheight  +  Aldepth  +  gap  +  Lidepth  +  Lcrystal 
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B2ds3sface  [<£_,  p_] 


-p  *  Sin[$]  +  -\/p2*( Sin[0])2  -  (p2  -  Rcrystal2  ) 

Cos  I  ArcTan  I -  ; 

1  1  sourceheight  +  Al depth  +  gap  +  Lidepth  J  J 

x2ds3sface[£_,  <t>_,  p_]  = 


-p*Sin[<£]  +  -\/p2  *  (Sin[0]  )2  -  (p2  -  Rcrystal2  ) 

Vl-f2 

(sourceheight  +  Aldepth  +  gap  +  Lidepth) 


—  | Nlntegrate [ 


etds3sfacel[e]  :=  - 

7r  (Rsource)' 

Nlntegrate [ 

Nlntegrate [ 

(1  -  Exp[-ZGe[e]  *xlds3sface[£]  ] )  * 

Exp[-SAl[e]  *xAl[f]  -  2Li[e]  *xLi[f]], 

f  7T  7T  %  -| 

{f,  Blds3sface[0,  p] ,  Alds3sface}]  ,  {0, - ,  — jj  *p, 

2  2 

{p,  0,  Rsource}  ]J 

€tds3sfacellist  =  Table [£tds3sfacel [Csl36gammas[  [n]  ]]  ,  {n,  1,  15}]; 


£tds3sface2 [e_]  ;= 


| Nlntegrate [ 


7r  (Rsource) ‘ 

Nlntegrate [ 

Nlntegrate [ 

(1  -  Exp[-2Ge[e]  *x2ds3sface[f ,  <f>,  p]  ] )  * 

Exp[-ZAl[e]  *xAl[£]  -  EIii[e]  *xLi[£]], 

{£#  B2ds3sface[0,  p] ,  A2ds3sface[<*>,  p]}]  ,  {</>,  -^-}]  *p, 

{p,  0,  Rsource}  ]J 

£tds3s£ace21ist  =  Table [etds3sface2 [Csl36gammas[  [n]  ]] ,  {n,  1,  15}]; 

£tds3sfacelist  =  £tds3sfacellist  +  £tds3sface21ist; 

The  following  table  shows  the  contribution  of  each  zone  to  the  total 
efficiency  of  the  three-sided  cylinder  with  a  disk  source. 


TableForxn[lable[{£tds3sfacellist[  [i]  ]  , 

£tds3s£ace211st [ [i] ] ,  £tds3sfacelist [ [i] ] } ,  {1,  1,  15}], 
TableHeadings  ->  (None,  {"Inner  Cone  Total  Eff.", 

"Outer  Wedge  Total  Eff.",  "Sum  Total  Eff."}}, 

TableAl  ignment  s  ->  Center]  ; 
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The  following  is  the  equation  to  compute  the  total  efficiency  of  the 
five-sided  cylindrical  detector  crystal  with  a  disk  source  at  the  face. 
It  is  assumed  the  ratio  of  the  five-sided  to  three-sided  crystal  total 
efficiencies  using  a  point  source  is  the  same  for  using  a  disk  source 
at  the  same  distance. 

£tps5sfacellst 

£tds5sfacelist  =  - *  £tds3sfacelist; 

£tps3sfacelist 

Using  the  peak- to- total  efficiency  ratio  calculated  above,  the  peak 
efficiency  of  the  five-sided  crystal  with  a  disk  source  at  the  face  is 
shown  below: 

£pds5sfacelist  =  etdsSsfacelist  *  PKtoTTLdsSslist; 

To  summarize  the  results  up  to  present,  a  table  is  provided  below. 

TableForm[ Table [  {Csl36gammas [ [i] ] , 

£tds5sf acelist [ [i] ] ,  £pds5sfacelist [ [i] ] } ,  {i,  1,  15}], 
TableHeadings ->  {None,  {"Gamma  (Mev)  ", 

"Total  Face  Efficiency",  "Peak  Face  Efficiency"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Total  Face  Efficiency 

Peak  Face  Efficiency 

1.235362 

0.176704 

0.0386214 

1.048073 

0.185113 

0.0446167 

0.818514 

0.19754 

0.0553363 

0.507188 

0.220298 

0.0836701 

0.340547 

0.239085 

0.11805 

0.319911 

0.242711 

0.124615 

0.273646 

0.273449 

0.145475 

0.187285 

0.291161 

0.194743 

0.176602 

0.295126 

0.202602 

0.166576 

0.295752 

0.209505 

0.16392 

0.295703 

0.211293 

0.153246 

0.29552 

0.218379 

0.109681 

0.315647 

0.239159 

0.08636 

0.317962 

0.220971 

0.066881 

0.312915 

0.168048 

G97DENP09_ApD.nb 


170 


TableForm[Table[{Csl36ganmas[ [i] ] ,  etds3sf acelist [ [i] ] , 
etps5sf acelist [ [i] ] ,  etps3sf acelist [ [i] ] } ,  (i,  1,  15}] , 
TableHeadings  ->  (None,  {"Mev",  "etds3s",  "etps5s",  "etps3sM} } , 
TableAlignments  ->  Center] 


Mev 

etds3s 

etps5s 

etps3s 

1.235362 

0.177835 

0.180888 

0.182046 

1.048073 

0.186242 

0.189519 

0.190675 

0.818514 

0.198652 

0.202275 

0.203414 

0.507188 

0.221331 

0.22563 

0.226688 

0.340547 

0.24 

0.244882 

0.245819 

0.319911 

0.243599 

0.248592 

0.249501 

0.273646 

0.274058 

0.279919 

0.280542 

0.187285 

0.291536 

0.297713 

0.298096 

0.176602 

0.295447 

0.301649 

0.301977 

0.166576 

0.29606 

0.302256 

0.302571 

0.16392 

0.29601 

0.302203 

0.302517 

0.153246 

0.295823 

0.302006 

0.302316 

0.109681 

0.315689 

0.321184 

0.321227 

0.08636 

0.317966 

0.322721 

0.322725 

0.066881 

0.312915 

0.317029 

0.317029 

The  next  step  is  to  place  the  various  coefficients  for  the  summing 
correction  equations  in  matrix  form.  The  reference  is  (Andreev  and 
others,  1972),  pg.  1358-1360. 

The  internal  conversion  coefficients  for  Cs-136  are  shown  below.  The 
reference  is  (Tuli,  1987),  pg.  311.  Due  to  Mathematica '  s  indexing, 
the  ground  state  is  level  1 . 

a  =  {{0,  0,  0,  0/  0 ,  0/  0,  0},  {0.00282,  0,  0,  0,  0,  0,  0,  0}, 

{0,  0,  0,  0,  0,  0,  0,  0},  {0,  0,  2.26,  0,  0,  0,  0,  0}, 

{0,  0,  0.190,  0,  0,  0,  0,  0},  {0,  0,  0.016,  1.47,  0.343,  0,  0,  0,  0}, 
{0,  0,  0.0305,  0.094,  0.433,  0.694,  0,  0), 

{0,  0,  0.0112,  0,  0.0393,  0,  0.245,  0}}; 

MatrixForra[a]  ; 

The  following  are  branch  ratios  for  cascading  Cs-136  gammas  .  The 
reference  is  (Tuli,  1987),  pg.  311.  Due  to  Mathematica ' s  indexing, 
the  ground  state  is  level  1. 
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x  -  {{0^  0,  0,  Of  Of  0,  Of  0}  f 

{I#  Of  0/  0/  0,  0/  0#  0} f  {0,  1,  Of  Of  Of  0,  0,  0}, 

{0,  0,  If  Of  Of  Of  Of  0} ,  {0/  0.982,  0.018,  0,  0,  0,  0,  0}, 

{0,  0,  0.671,  0.014,  0.315,  0,  0,  0}, 

(0,  0,  0.673,  0.159,  0.092,  0.076,  0,  0}, 

(0,  0,  0.527,  0,  0.272,  0,  0.201,  0}}; 

MatrixForm[x] ; 

The  peak  face  efficiencies  are  placed  in  a  matrix  according  to  their 
level  transitions. 

epf ace  = 

{{0,  0,  0,  0,  0,  0,  0,  0),  {epdsSsfacelist [ [3] ] ,  0,  0,  0,  0,  0,  0,  0}, 
{0,  epdsSsfacelist [  [2]  ] ,  0,  0,  0,  0,  0,  0}, 

(0,  0,  epds5sf acelist [  [11]  ]  ,  0,  0,  0,  0,  0}, 

{0,  epdsSsfacelist [  [1]  ]  ,  epds5sf acelist [  [8]  ]  ,  0,  0,  0,  0,  0}, 

{0,  0,  epds 5sf acelist [ [7] ] , 

epdsSsfacelist [  [13]  ]  ,  epds 5s f acelist [  [14]  ]  ,  0,  0,  0},  {0,  0, 
epds5sf acelist [ [5] ] ,  epds5sf acelist [ [9] ] ,  epds5sf acelist [ [12] ] , 
epds5sf acelist [ [15] ] ,  0,  0},  {0,  0,  epdsSsfacelist [ [4] ] , 

0,  epdsSsfacelist [ [6] ] ,  0,  epds5sf acelist [ [10] ] ,  0}}; 

MatrixForm[epface]  ; 

MatrixForm[epfar]  ; 

The  total  face  efficiencies  are  placed  in  a  matrix  according  to  their 
level  transitions. 

s' 

etface  = 

{{0,  0,  0,  0,  0,  0,  0,  0},  {etds5sf acelist [  [3]  ] ,  0,  0,  0,  0,  0,  0,  0}, 
{0,  etds5sf acelist  [  [2]  ] ,  0,  0,  0,  0,  0,  0}, 

{0,  0,  etdsSsfacelist [ [11] ] ,  0,  0,  0,  0,  0}, 

{0,  £ tds5sf acelist [ [1] ] ,  etdsSsfacelist [ [8] ] ,  0,  0,  0,  0,  0}, 

{0,  0,  etdsSsfacelist [ [7] ] , 

etds5sfacelist [ [13] ] ,  etdsSsfacelist [ [14] ] ,  0,  0,  0},  {0,  0, 
etdsSsfacelist [ [5] ] ,  etds5sf acelist [ [9] ] ,  etdsSsfacelist [ [12] ] , 
etdsSsfacelist [ [15] ] ,  0,  0},  {0,  0,  etdsSsfacelist [ [4] ] , 

0,  e tds5sf acelist [ [6] ] ,  0,  etds5sf acelist [ [10] ] ,  0}} ; 

MatrixFormf  etface] ; 

MatrixForm[etfar]  ; 

The  Mo-99  /3-  decay  branch  ratios  are  listed  below  in  the  array.  The 

reference  is  (Tuli,  1987),  pg.  311. 
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/3  =  {0,  0,  0.0198,  0,  0.0178,  0.00790,  0.00128,  0.929,  0.0226}; 

Mat  rixForm  [  /3  ]  ; 

The  following  method  determines  the  fraction  of  counts  underneath  an 
observed  energy  peak.  The  peak  represents  the  sum  of  direct  and  true 
coincidence  gamma  rays  depositing  the  given  energy.  The  true  activity 
has  been  normalized  to  one.  This  method  does  not  include  the  angular 
correlation  coefficient  W  since  this  was  shown  to  be  a  negligible 
factor  in  analyzing  Mo-99.  The  reference  is  (Andreev  and  others, 

1972),  pg.  1359. 

The  number  of  energy  levels  in  Cs-136  in  the  simplified  decay  scheme 
is  eight  (seven  plus  ground  state).  However  due  to  Mathematica ' s 
automatic  indexing  at  one,  m  =8.  The  terms  are  decoupled  along  the 
decay  chains  in  order  to  calculate  their  contributions.  They  will  be 
summed  at  the  end. 


m  =  8; 

.  x  [  [i,  k]  ]  *  epfar  [  [i,  k]  ]  .  „  n 

afar  =  Table [  — — - - - -m - - - — ,  {i,  1,  m},  (k,  1,  m}  ; 

1 +  «[[i,  k]] 

.  x  [  [i,  k]  ]  *  epface[  [i,  k]  ]  .  . 

af ace  =  Table  [ - ; - ,  {i#  1,  m},  {k#  1#  m}]; 

L  1  +  a[  [i,  k]  ] 

Mat  rixForm  [af  ace]  ; 

MatrixForm[afar] ; 

.  (  stfaceT [i,  k]l  \  n 

bface  =  Table [x  [  [i,  k]  ]  *  1 - ; — -  /  {i,  1#  m},  {k,  1,  m}l  ; 

L  V  1  +  a[  [x,  k]  ]  ; 

_  /  etfar [ [i,  k]  ]  \  n 

bfar  =  Table  x[[i#  k]  ]  *  1-  - - \\  J  J  \,  {i,  1.  m>#  {k#  1,  m}  ; 

L  ^  i +  «[[i,  k]]  ; 

Mat rixForm [bface] ; 

MatrixForm  [ bfar] ; 

Sface  =  {0,  0,  0,  0,  0,  0,  0,  0}; 

Sfar  s  [Q|  Of  Of  0/  0/  0/  0|  0}/ 


1U 

Do[sface[  [i]  ]  =/3[[i]]+  ^  Sface [  [n]  ]* bface [  [n,  i]  ] ,  {i#  m,  1,  -1}] 

n=i+l 

m 

Do [sf ar  [  [i]  ]  =  &  [  [i]  ]  +  ^  sfar[  [nl  ]  *bfar[  [n,  i]  ]  ,  {i,  ni/  1,  -1}] 


n=i+l 
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MatrixForm[#face]  ; 
MatrixForm[j8far]  ; 

/tfface  =  {1#  1/  1/  1#  1#  1/  1#  0}  # 


Mfar=  {1,  1,  1,  1#  1,  1,  1,  0}; 


mm  =  m  -  1; 


k-l 

Do[.Mface[  [k]  ]  =  ^bfacet  [k#  j]  ]  *  Mface[  [ j]  ] ,  {k,  2,  mm}] 


k-l 

Do[Mfar[[k]]  =  £bfar[[k,  j]  ]  *Mfar[  [  j]  ]  f  {k,  2,  mm}] 


MatrixForm[A1face] ; 

MatrixForm[A1far]  ; 

tfface  =  Table [0,  {i,  1,  m},  {j,  1,  m}]; 

Jlfar  =  Table [0,  {i#  l#m}#  {j,  1,  m}]; 

Do  [Do  [^Iface  [  [i#  k]  ]  = 

i-l 

aface[  [i#  k]  ]  +  ^  aface[  [i#  j]  ]  *  JIface[  [j,  k]  ]  #  {k#  1,  i}] , 

j  =k+l 

{i,  2,  m}] 

Do[Do[#far[ [i,  k]  ]  = 

i-l 

afar[[i,  k]]  +  ^  afar[[i,  j]]  *^rfar[[j,  k]  ] ,  {k,  1,  i}], 

j=k+l 

{i#  2,  m}] 

MatrixForm[^face]  ; 

MatrixForm[.?Ifar]  ; 

Sf ace  = 

Table [Ef ace [  [i]  ]  *  Efface  [  [i,  k]  ]  *  A^facef  [k]  ]  ,  {i,  1,  m},  {k,  1,  m}]  ; 

Sfacelist  =  {5£ace[  [5,  2]  ]  ,  £face[  [3,  2]  ]  ,  5face[  [2,  1]  ]  , 

.Sf  ace [ [8,  3] ] ,  Sface[ [7,  3] ] ,  Sface[ [8#  5] ] ,  .Sfacef [6,  3]  ] , 

-Sf  ace [  [5,  3]  ]  ,  Sface[  [7,  4]  ]  ,  5face[  [8,  7]  ] ,  Sface[  [4,  3]  ]  , 
5face[[7,  5]],  Sface[[6,  4]],  .Sface[[6,  5]],  Sface[[7#  6]]}; 
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vSfar  = 

Table [2far[  [i]  ]  *5Ifar[  [i,  k]  ]  * Mfar[  [k]  ]  #  {i,  1,  m},  {k,  1,  m}]; 

Sfarlist  =  {.Sfar[  [5,  2]  ] ,  5far[  [3,  2]  ] ,  Sfar[  [2,  1]  ]  , 

S£ar[ [8/  3] ] ,  5far[ [7,  3] ] ,  Sfar[ [8,  5] ] ,  3far[ [6,  3]  ]  , 

«Sfar[  [5,  3]  ]  ,  5far[  [7,  4]  ]  ,  .Sfar[  [8,  7]  ]  ,  5far[  [4,  3]  ]  , 

•Sfar[ [7,  5] ] ,  Sfar[ [6,  4] ] ,  <Sfar[ [6,  5] ] ,  Sfar[ [7,  6]  ]  }; 


MatrixForm [ 5  face] 


0 

0 

0 

0 

0 

0.0327291 

0 

0 

0 

0 

0.00123994 

0.0180442 

0 

0 

0 

2 . 69419  x  10"6 

0.0000392072 

0.000716087 

0 

0 

0.000474625 

0.00690696 

0.000435644 

0 

0 

5.80632  x  10'6 

0.0000844963 

0.0010589 

0.0000135511 

0.000573064 

0.0000325451 

0.000473611 

0.00749862 

0.00251773 

0.00136239 

k  0.00017048 

0.00248091 

0.0282069 

0.000550729 

0.0202376 

MatrixForm  [Sfar] 

0 

0 

0 

0 

0 

0.00299268 

0 

0 

0 

0 

5.44753  x  1CT6 

0.00171211 

0 

0 

0 

8 . 06516  x  10”10 

2 . 5348  x  1CT7 

0.0000978567 

0 

0 

2.00382  x  10'6 

0.000629781 

0.0000441729 

0 

0 

1 . 31752  x  10~9 

4 . 14082  x  10~7 

0.00011019 

1.50033  x  10"6 

0.0000581638 

7 .34319  x  10’9 

2 . 30789  x  10-6 

0.000776609 

0.000279451 

0.00013392 

,  2 . 99246  x  10“8 

9.40502  xl(T6 

0.00223265 

2 . 48152  x  10“6 

0.00163735 

The  following  is  to  show  an  estimate  of  the  uncorrected  values 
ignoring  summing-in  and  -out  effects. 

2un£ace  =  Table [0,  {i,  1,  m}#  {k,  1,  m}]; 

Sunfar  =  Table [0,  (i,  1,  m} ,  {k,  1,  m}]; 

Do[Do[®unface[ [i,  k]  ]  = 

m 

>3[  [i]  3  +  2  Sunface[[n,  k]  ]  *x[[n,  i]  ] ,  {i,  m,  1,  -1}], 

n=i+l 

{k,  1,  nm}] 
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Do[Do[sunfar[  [i,  k]  ]  = 

m 

/3[[i]]  +  ^  £unfar[[n,  k]  ]  *x[[n,  i]  ] ,  {i,  m,  1,  -1}] 

n=i+l 

{k,  1,  nrn}] 

tfunface  =  Table [0,  (i,  1,  m},  {j,  1,  m}]; 
jtunfar  =  Table [0,  {i,  1,  m},  {j,  1,  m}]; 

x[  [i,  k]  ]  *  epface [  [i,  k]  ] 


Do [Do [tfunf ace [ [i,  k]  ]  = 
{i,  2,  m}] 


i  +  k]] 


{k/  1#  ] , 


r  r  x[  [i,  k]  ]  *  epfar[  [i,  k]  ]  .  , 

Do[Do[#unfar[  [i#  k]  ]  =  - - - — — — - ,  {k,  1,  i}], 

L  1  l  +  k]  ] 

{i#  2,  m}] 

Munface  =  Table  [1,  (i,  1,  m) ,  {k,  1,  m}]; 


Attmfar  =  Table [1,  {i#  1,  m}  ,  {k,  1,  m}]; 

vSunface  =  Table [Sunf ace [  [i,  k]  ]  *  Munface  [  [i,  k]  ]  *  Munface[  [i,  k]  ]  , 
{i#  1.  m},  {k,  1,  m}]  ; 

<Sunfacelist  =  {.Sunface [  [5,  2]  ] ,  vSunface[  [3,  2]  ]  ,  vSunface  [  [2,  1]  ]  , 
.Sunface  [  [8,  3]  ]  ,  Sunface [  [7,  3]  ] ,  Sunface[  [8,  5]  ] , 

.Sunface  [  [6,  3]  ]  ,  Sunface[  [5,  3]  ] ,  .Sunface [  [7,  4]  ]  , 

Sunface[  [8,  7]  ]  ,  Sunface[  [4,  3]  ] ,  Sunface [  [7,  5]  ]  , 

Sunfacef  [6,  4]],  Sunface [[6,  5]],  Sunfacef [7,  6]]}; 

Sunfar  =  Table [Sunfarf  [i,  k]  ]  *Munfar[  [i,  k]  ]  *  Atunfarf  [i,  k]  ] , 

{i,  1,  m},  {k,  1,  m}]; 

Sunfarlist  =  {Sunfarf  [5,  2]  ] ,  Sunfarf  [3,  2]  ]  ,  Sunfarf  [2,  1]  ] , 
Sunfar [ [8,  3]  ]  ,  Sunfar[[7#  3]  ] ,  .Sunfar  [  [8,  5]],  Sunfar [  [  6 ,  3]], 
Sunfar [  [5,  3]  ]  ,  Sunfar [  [7,  4]  ]  ,  Sunfar [  [8,  7]  ]  ,  Sunfarf  [4#  3]  ]  , 
vSunf ar[  [7,  5]  ]  ,  Sunfarf  [6,  4]  ] ,  Sunfar [  [6,  5]  ]  ,  -Sunfar [  [7,  6]  ]  }  ; 
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MatrixForm  [vSunface] 

(  0  0 

0 

0 

0 

0 

0.0538442 

0 

0 

0 

0 

0 

0 

0.030621 

0 

0 

0 

0 

0 

0 

0.00195764 

0 

0 

0 

0 

0.0111797 

0.000868316 

0 

0 

0 

0 

0 

0.00213181 

0.000030078 

0.00115001 

0 

0 

0 

0.0144948 

0.00553609 

0.00263591 

0.00141746 

,  o 

0 

0.0405098 

0 

0.030298 

0 

Mat  r  ixForm  [  Sunfar] 

(  0 

0 

0 

0 

0 

0.00306984 

0 

0 

0 

0 

0 

0.00175886 

0 

0 

0 

0 

0 

0.000102735 

0 

0 

0 

0.000645226 

0.0000457509 

0 

0 

0 

0 

0.000114251 

1 . 56328  x  10~6 

0.0000603035 

0 

0 

0.000802424 

0.000290621 

0.00013838 

,  0 

0 

0.00227496 

0 

0.00167219 

The  tables  below  compare  the  corrected  and  uncorrected  peak  count 
fraction — the  fraction  of  decays  that  result  in  gamma  rays  depositing 
their  full  energy  in  the  detector  crystal  and  causing  a  count  in  the 
full  energy  peak. 

Ratiofarlist  =  Sfarlist  /  sSunfarlist; 


G97DENP09_ApD.  nb 


111 


TableForm[  Table [  {Csl36gammas [  [i]  ]  ,  Sunfarlist[  [i]  ] , 

£farlist[ [i] ] ,  Ratiof arlist [ [i] ] },  {i,  1,  15}], 

TableHeadings  ->  {None,  {"Gamma  (Mev)  ", 

"Far,  Uncrtd  Peak  Count",  "Far,  Crtd  Peak  Count",  "Ratio"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Far,  Uncrtd  Peak  Count 

Far,  Crtd  Peak  Count 

1.235362 

0.000645226 

0.000629781 

1.048073 

0.00175886 

0.00171211 

0.818514 

0.00306984 

0.00299268 

0.507188 

0.00227496 

0.00223265 

0.340547 

0.000802424 

0.000776609 

0.319911 

0.00167219 

0.00163735 

0.273646 

0.000114251 

0.00011019 

0.187285 

0.0000457509 

0.0000441729 

0.176602 

0.000290621 

0.000279451 

0.166576 

0.00164885 

0.00158977 

0.16392 

0.000102735 

0.0000978567 

0.153246 

0.00013838 

0.00013392 

0.109681 

1 . 56328  x  10~6 

1.50033  x  10-6 

0.08636 

0.0000603035 

0.0000581638 

0.066881 

0.0000756209 

0.0000720608 

Ratiofacelist  =  Sfacelist  /  Sunf  acelist; 

TableForm[Table[{Csl36gammas[  [i]  ]  ,  vSunf  acelist  [  [i]  ]  , 
acelist [  [i]  ] ,  Ratiof  acelist  [  [i]  ]  },  {i,  1,  15}] , 

TableHeadings ->  {NOne,  {"Gamma  (Mev)", 

"Face,  Uncrtd  Peak  Count",  "Face,  Crtd  Peak  Count",  "Ratio"}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Face,  Uncrtd  Peak 

1.235362 

0.0111797 

1.048073 

0.030621 

0.818514 

0.0538442 

0.507188 

0.0405098 

0.340547 

0.0144948 

0.319911 

0.030298 

0.273646 

0.00213181 

0.187285 

0.000868316 

0.176602 

0.00553609 

0.166576 

0.0314223 

0.16392 

0.00195764 

0.153246 

0.00263591 

0.109681 

0.000030078 

0.08636 

0.00115001 

0.066881 

0.00141746 

Count  Face,  Crtd  Peak  Count 

0.00690696 
0.0180442 
0.0327291 
0.0282069 
0.00749862 
0.0202376 
0.0010589 
0.000435644 
0.00251773 
0.0152555 
0.000716087 
0.00136239 
0.0000135511 
0.000573064 
0.000526783 
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AFTACepds5sface  = 

Table [ epds5sf acelist [  [i]  ]  * Ratiof acelist [  [i]  ] ,  {i,  1,  15}]; 

The  table  below  shows  the  adjusted  face  peak  efficiency  that  AFTAC 
could  use  in  its  ananlysis. 


TableForm[ Table [ {Csl36gamnas [ [i]  ] ,  epds5sf acelist [ [i]  ] , 
Ratiofacelist [  [i]  ] ,  AFTACepds5sf ace [  [i]  ]  } ,  {i,  1,  15}], 
TableHeadings  ->  {None,  {"Gamma  (Mev)  ", 

"Face  Peak  Eff.",  "Ratio",  "Adjusted  Face  Peak  Eff."}}, 
TableAlignments  ->  Center] 


Gamma  (Mev) 

Face  Peak  Eff. 

Ratio 

Adjusted  Face  Peak 

1.235362 

0.0386214 

0.617815 

0.0238609 

1.048073 

0.0446167 

0.589276 

0.0262915 

0.818514 

0.0553363 

0.607849 

0.0336361 

0.507188 

0.0836701 

0.696299 

0.0582594 

0.340547 

0.11805 

0.517333 

0.0610711 

0.319911 

0.124615 

0.667952 

0.0832367 

0.273646 

0.145475 

0.496714 

0.0722595 

0.187285 

0.194743 

0.501711 

0.0977049 

0.176602 

0.202602 

0.454786 

0.0921407 

0.166576 

0.209505 

0.485498 

0.101714 

0.16392 

0.211293 

0.36579 

0.077289 

0.153246 

0.218379 

0.516858 

0.112871 

0.109681 

0.239159 

0.450531 

0.107749 

0.08636 

0.220971 

0.498312 

0.110113 

0.066881 

0.168048 

0.371639 

0.062453 

AFTACepfacelist  =  {.022025,  .026148,  .033183,  0,  .074673,  0, 
.077396,  0,  .18784,  0,  .13263,  .14242,  0,  .11149,  .071853}; 


r  AETACepds5sf ace [ [i] ]  -  AFTACepfacelist [ [i] ] 

RelDif f  =  Table [ 100  * 


{i,  1,  15}]; 


AFTACepfacelist [ [i]  ] 
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TableForm  [  Table  [  {Csl36gammas[  [i]  ]  ,  AFTACepf acelist  [  [i]  ]  , 
AFTACepds5sface[  [1]  ] ,  RelDiff [ [i] ] } ,  {1,  1,  15}], 
TableHeadings  ->  {None,  {"Gamma  (Mev)",  "AETAC  Face  Peak  Eff.”, 
"AFIT  Face  Peak  Eff.",  "Rel.  %  Diff"}}, 

TableAlignments  ->  Center] 


Gamma  (Mev) 

AFTAC  Face  Peak  Eff. 

AFIT  Face  Peak  Eff 

1.235362 

0.022025 

0.0238609 

1.048073 

0.026148 

0.0262915 

0.818514 

0.033183 

0.0336361 

0.507188 

0 

0.0582594 

0.340547 

0.074673 

0.0610711 

0.319911 

0 

0.0832367 

0.273646 

0.077396 

0.0722595 

0.187285 

0 

0.0977049 

0.176602 

0.18784 

0.0921407 

0.166576 

0 

0.101714 

0.16392 

0.13263 

0.077289 

0.153246 

0.14242 

0.112871 

0.109681 

0 

0.107749 

0.08636 

0.11149 

0.110113 

0.066881  • 

0.071853 

0.062453 

The  following  section  is  the  error  in  the  internal  conversion 
coefficients  and  gamma-ray  intensities.  Unfortunately,  the  reference 
(Tuli,  1979)  is  missing  a  large  portion  of  them  and  precludes  a 
meaningful  error  analysis. 


aa  =  {{0,  0,  0,  0,  0#  0,  0,  0} ,  {0,  0#  0,  0,  0,  0,  0,  0} , 

{0,  0,  0,  0,  0,  0,  0,  0},  {0,  0,  0,  0,  0,  0,  0,  0), 

{0,  0,  0.016,  0,  0,  0,  0,  0},  {0,  0,  0.004,  0.07,  0,  0,  0,  0,  0}, 

{0,  0,  0,  0.046,  0,  0.002,  0,  0},  {0,  0,  0.0017,  0,  0.0022,  0,  0,  0}}; 

ai  =  {{0,  0,  0,  0,  0,  0,  0,  0}, 

{0,  0,  0,  0,  0,  0,  0,  0),  {0,  0.03,  0,  0,  0,  0,  0,  0}, 

{0,  0,  0.0012,  0,  0,  0,  0,  0},  {0,  0.007,  0.0004,  0,  0,  0,  0,  0>, 

{0,  0,  0.004,  0.0003,  0.002,  0,  0,  0}, 

{0,  0,  0.013,  0.004,  0.0018,  0.002,  0,  0}, 

{0,  0,  0.0003,  0,  0.0005,  0,  0.004,  0}}; 


Appendix  E:  AFIT  Experimental  Data 

In  an  attempt  to  quantify  what  percentage  of  gamma-rays 
that  are  scattered  into  the  detector  due  to  the  presence  of 
the  planchet,  measurements  were  made  at  the  AFIT  Nuclear 
Engineering  Laboratory  using  Cs-137  in  the  form  of  a  thin 
disk  source.  The  isotope  is  a  single  gamma-ray  emitter  of 
662  keV.  Because  of  this  property,  the  isotope  is  ideal  for 
determining  the  peak-to-total  (P/T)  efficiency  ratio  for 
energies  near  662  keV.  Since  the  analytical  method  uses 
the  P/T  ratio  in  determining  summing  events,  a  change  in  the 
P/T  ratio  will  have  a  direct  affect  on  the  results.  Even 
though  the  scattered  gamma-rays  will  not  register  counts  in 
their  full  energy  peaks,  they  can  add  to  total  detection 
efficiency.  The  increased  total  efficiency  would  then  lower 
the  P/T  ratio. 

The  intent  is  to  get  a  rough  estimate  in  the  change  of 
the  face  peak  efficiency  for  the  key  Mo-99  gamma-ray,  the 
740  keV  one.  So,  noting  the  change  in  the  P/T  ratios  from 
Appendix  C  between  662  and  740  keV  is  minor,  the  reduction 
in  the  662  keV  P/T  ratio  suggests  a  similar  reduction  in  the 
740  keV  P/T  ratio— ergo,  a  reduction  in  the  AFIT  face  peak 
efficiency.  See  the  experimental  data  in  Table  E.l. 
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Table  E.l  AFIT  Experimental  Data 


Measure¬ 

ment 

without 

planchet 


Source 

Serial 

Number 

Height 
above 
Det  #01 

Date 

Dead 

Time 

Live 

Time 

Real 

Time 

Cs-137 

1S811 

3  0  cm 

5  Sep  97 

5.48% 

120  sec 

126 

sec 

662 

keV 

peak 


Left  Right  Peak 
Margin  Margin  Center 


1797 


1718 


1807 


Total 

Peak 

Counts 


42045 


Total 

Spectrum 


Left  Right  Total 

Margin  Margin  Counts 


47 


1817  160413 


Source 

Serial 

Number 

Height 
above 
Det  #01 

Date 

Dead 

Time 

Live 

Time 

Real 

Time 

Cs-137 

1S811 

30  cm 

5  Sep  97 

5.62% 

120  sec 

127 

sec 

662 

keV 

peak 


Left  Right  Peak 
Margin  Margin  Center 


1797  1817 


P/T  = 


42372 


165432 


=.2561 


1807 


Total 

Peak 

Counts 


42372 


Total 

Spectrum 


Left  Right  Total 

Margin  Margin  Counts 


48 


0.00139 


1817  I  165432 


w/pcht 

=  .2561 

w/o 

.2622 

=  0.977 


Error  ■  0.0075 
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From  the  analysis  of  the  experiment,  a  2  to  3% 
reduction  appears  in  the  peak-to-total  counts  when  placing 
the  planchet  above  the  source.  Thus,  there  should  be  a 
reduction  in  the  adjusted  AFIT  face  peak  efficiency.  The 
errors  were  found  using  Equations  E-l  through  E-3 . 


P/T  = 


PeakCounts(CP) 
T  otalCounts(CT) 


ap/l  acp  ^  a^p+(  acT  ^ 


9P/T 


2„2 


ap/T 


2«Z 


CP  CPZ  1/2 

"P/t  =  [S2+^3] 


(E-l) 


(E-2) 


(E-3) 
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An  analytical  method  is  developed  and  applied  to  find  the  activities  of  two  radioisotopes  based  on  measurements  influenced  by 
true  coincidence  summing.  The  method  incorporates  the  solid  angle  subtended  by  the  detector,  the  macroscopic  cross  sections 
of  the  materials  present,  the  absolute  peak  and  total  efficiencies  of  the  detector,  and  the  modes  and  probabilities  of  decay  of  the 
radioisotope.  With  this  information,  the  method  corrects  for  both  summing-in  and  summing-out  events.  Summing  events 
affect  peak  counts  and  cause  the  calculated  activity  to  differ  from  the  true  activity. 

Thin  disk  sources  of  Mo-99  and  Cs-136  on  the  face  of  a  closed-end,  coaxial  high  purity  germanium  detector  have  been  studied. 
For  Mo-99,  the  analytical  method  shows  there  is  a  29%  reduction  in  the  740  keV  peak  counts  due  to  summing  events.  This 
factor  adjusts  the  no-coincidence-assumed  activity  to  within  4.0%  of  the  correct  value.  As  for  Cs-136,  the  analytical  method 
shows  a  41%  reduction  in  the  1048  keV  peak  counts.  This  factor  corrects  the  simplistic  activity  to  within  0.5%  of  the  correct 
value.  Hence,  the  results  indicate  that  coincidence  summing  is  the  primary  cause  of  activity  discrepancies  for  the  given 
configuration. 
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